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La informática está de moda. 

Dentro de la informática, los lenguajes que nos permiten 
dirigir la potencia del ordenador a la obtención de un 
determinado resultado, centran el máximo nivel de interés. 
El BASIC es el más popular de estos lenguajes. 

En las páginas siguientes se resumen nuestros esfuerzos 
por hacer accesible a los ambientes no informáticos, el 
MSX- BASIC, en forma autodidacta. 

Al igual que el castellano tiene pequeñas diferencias según 
el lugar donde se practique (España, sudamérica, etc), 
también el "idioma" BASIC difiere en alguna de sus 
características según sea el computador en el que quiera 
ejecutarse. He aquí lo importante que es el "MSX" que 
precede a la palabra "Basic" en nuestra portada. 

"MSX" es el primer estandard que aglutina a una gran 
mayoría de los computadores domésticos del mercado. Ello 
quiere decir que este manual puede ser aplicado sobre 
cualquier computador, suministrado por cualquier proveedor, 
que responda al estandard "MSX". 

Al igual que en una buena aventura, en el aprendizaje 
del BASIC ha de haber momentos excitantes, situaciones 
de resultado incierto, y un final feliz. También el desánimo 
puede hacer su aparición, pero la constancia hará que el 
mismo sea superado. 



Aquí, el tiempo no cuenta. No se trata de competir con 
nadie. El mundo ignoto del computador esperará paciente- 
mente a que cada alumno, a la medida de su interés y sus 
posibilidades, vaya conociendo y dominando las diversas 
facetas del mismo. 

Después de esta primera parte de nuestra aventura, 
comprobarás que un computador es como un paisaje por 
el cual se puede pasear en varias dimensiones y profundi- 
dades. 

Si, una vez finalizado el presente curso, el alumno ha 
conseguido establecer un gratificante diálogo con el 
computador, y siente despertar nuevas inquietudes más 
allá de los limites de los conocimientos ya adquiridos, 
nuestro objetivo se habrá conseguido. Entonces, un nuevo 
curso estará a su disposición para seguir andando juntos 
en este apasionante camino que la constante evolución de 
la electrónica pone a nuestro alcance. 

No hay limitaciones previas para la utilización de este 
manual. Ni la edad, ni la profesión, ni la condición 
intelectual. 

El interés, la constancia y la ilusión son las únicas condiciones 
previas que nuestro lector debe poseer. 
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INDUCE TEMATICO POR SESIONES 


CAPITULO PREVIO Pag. 1 

Lo primero que vamos a aprender es la forma de comunicarme 
contigo, es decir, EL SIGNIFICADO DE LOS SIMBOLOS UTILI- 
ZADOS para indicarte la forma en que has de actuar. 

Ya en las primeras páginas, pondremos a tu disposición un voca- 
bulario: EL MINIVOCABULARIO BASIC MSX. Porque, el orde- 
nador habla, para entenderte y ser entendido, un lenguaje. Y 
cada lenguaje tiene su propio vocabulario. 

Contando con tu impaciencia por sentarte frente al MSX-C, 
pasaremos rápidamente a instruirte en la FORMA DE CONECTAR 
EL MSX-C. Una vez conectado, accederás al procedimiento 
PARA PONERLO EN MARCHA Y EMPEZAR A TRABAJAR. 

SESION 1 Pág. 11 

Empiezan las dificultades y también los resultados. Empezaremos 
por el dominio de algunas teclas. En primer lugar las llamadas 
TECLAS DE FUNCIONES, situadas en la parte superior del teclado 
y rotuladas F1 , F2, F3, F4 F5. 

Podrás hacer aparecer o desaparecer la linea inferior de informa- 
ción de la pantalla, mediante KEY ON KEY OFF. 

A continuación, una de las teclas que más vasa usar, la que activa tu 
conversación con el MSX-C, la tecla RETURN. 

Tus experiencias fluyen a través de los caracteres representados 
en la pantalla. A menudo deberás "limpiarla", dejarla nuevamente 
disponible para otra información. Para ello tendrás a tu alcance 
las teclas SHIFT y HOME, y el comando CLS. 

SESION 2 Pág. 19 

Tras un pequeño repaso a la sesión anterior, empezaremos con 
una instrucción "fuerte", la sentencia PRINT. Con ella ya podrás 
escribir cosas en la pantalla, realizar operaciones e imprimir sus 
resultados, o lanzar tus primeros mensajes. 

Al fina I de cada sesión, ejercicios para que evalúes y practiques 
tus conocimientos. 
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SESION 3 Pág. 25 

Aquí encontrarás el corazón del MSX-C, la MEMORIA INTERNA. 
Asimismo, sabrás que existen unos "cajones" donde podemos 
almacenar información, llamados VARIABLES. Estudiarás tanto 
lo que son, como la forma de enviar allí una información, es decir, 
la CARGA DE VARIABLES. 

También será necesario conocer como vaciar, "limpiar", estas 
variables. Para ello utilizaremos la sentencia OLEAR. 

SESION 4 Pág. 35 

A! llegar aquí, ya sabremos dar un valor a las variables y también 
habremos aprendido a escribir en la pantalla. Realizaremos aquí 
OPERACIONES CON VARIABLES Y OPERACIONES CON PRINT. 

SESION 5 Pág. 43 

Al igual que lo conocemos y dominamos manualmente, dedica- 
remos esta sesión a realizar operaciones básicas con el MSX-C. 
SUMA, RESTA, MULTIPLICACION, DIVISION y EXPONENCIA- 
CION. 

SESION 6 Pág. 53 

Una variable de PRINT, de muy cómodo uso e igual resultado, es 
el símbolo que practicaremos en esta sesión. 

Ya conociste las posibilidades de las variables para albergar 
cantidades numéricas. Pero las variables tienen aún muchas 
posibilidades más. Aquí comprobaremos que también pueden 
albergar letras, símbolos, etc. A esto se le llama VARIABLES DE 
CADENA. 

SESION 7 Pág. 59 

Ya son varias las sentencias que variablemente hemos conocido 
al llegar a este punto. Vamos ahora a ensamblarlas para consti- 
tuir lo que se llama un PROGRAMA. Cuando lo hayamos consti- 
tuido y queramos que se liste en la pantalla, utilizaremos la 
sentencia LIST. Si quieres que el programa se ejecute, teclearás 
RUN. Si lo que quieres es borrar para siempre el programa de la 
memoria, tendrás NEW a tu disposición. 


SESION 8 Pág. 67 

Al ir constituyendo programas, a veces se cuela un carácter de 
más. Para eliminarlo dispondrás ahora Ve DEL. 

Dominando la print, habrá que cuidar la estética y escribir en 
lugares concretos de la pantalla. Para ello, LOCATE te será de 
mucha utilidad. 

Para tratar conjuntos alfa numéricos de información, vas a precisar 
de la sentencia STRING$, que te mostraremos en esta sesión. 
Finalmente, para controlar la numeración de todas y cada una de 
las instrucciones que forman un programa, dispondrás ahora de 
RENUM. 

SESION 9 Pág. 79 

Cuando ya se manejan programas y su numeración empieza a ser 
tediosa, la utilización de AUTO, gestionando automáticamente 
la misma, es de cómoda utilidad. 

Co/7 CTRL + STOP podrás "limpiar", cancelar un programa que 
se esté ejecutando. 

Como oposición a la función DEL, ¡a teda INS te permitirá inser- 
tar uno o varios caracteres en el lugar en que sea preciso. 

Otra sentencia importante, la INPUT, se estudia en esta sesión. 
Con ella podrás lograr que el programa te solicite datos a entrar 
desde el teclado. 

Y ya para acabar la sesión te enseñaremos a borrar líneas enteras 
de programa que ya no te sean de utilidad. 

SESION 10 Pág. 87 

Para no verse obligado a ejecutar siempre secuencialmente las 
instrucciones de un programa, conocerás el uso Ve GOTO. 

Con STOP se puede detener momentáneamente la ejecución de 
un programa. Cuando quieras reanudar esta ejecución, CONT 
realizará esta función. 

SESION 11 Pág. 95 

Ya hemos superado la mitad del curso y tus conocimientos se 
van acrecentando. A veces interesa condicionar la ejecución del 
programa, a un determinado espacio de tiempo. Para ello, el 
MSX-C dispone de un reloj. El acceso al mismo se logra con la 
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sentencia TIME. También podemos ordenar que el equipo ejecute P ' ara tratamiento de las variables de cadena existen una serie 

una u otra instrucción dependiendo de un determinado contenido. de patrones de control que estudiaremos en esta sesión. Entre 

Para ello existe la instrucción IF...THEN... ELSE. ellos, conocerás como usar: 


SESDOW 12 Pág. 105 

Una instrucción simple y cuya única intención es la de finalizar 
un programa, la sentencia END. 

El tratamiento con INDICES y SUBINDICES se estudia en esta 
sesión. 

Para realizar un programa con cierta complejidad, conviene reali- 
zar un dibujo o esquema previo que nos guie en la escritura de 
instrucciones. A ello se le llama ORGANIGRAMA. 

Entraremos más a fondo en las características del programa y 
conoceremos que se llama BUCLE DE PROGRAMA a la repetición 
de un trozo del mismo. 

SESIOW 13 Pág. 115 

Para delimitar con que espacio (anchura) de la pantalla, el MSX-C 
te brinda la sentencia WIDTH. 

Ya conocíamos PRINT, pero no todas las opciones de la misma. 
Aquí contemplamos la versión PRINT USING. 

Parecido al IF...THEN, pero con mayor potencia de proceso, 
FOR/NEXT nos permite condicionar la ejecución repetitiva de un 
bucle de programa a un determinado contenido. 

El MSX-C es un equipo internacional, que dispone de funciones 
para ser adaptado a los diversos países donde se instale. Aquí 
veremos como conseguir la letra Ñ y el ACENTO. 

SPACE$ nos permitirá " imprimir " espacios o blancos allí donde 
nos interese. Para tomar una decisión en base a ¡a situación del 
cursor en un momento dado, conoceremos la misma mediante 
CSRUN. 

Similar a lo anterior, POS( 0j nos puede informar de la línea donde 
está el cursor. 

SEStOfy 14 Pág. 131 

Aquí vamos a estudiar una variada serie de características tales 
como LA PROTECCION DE CANTIDADES CON ASTERISCOS, o la 
extracción de raíces cuadradas con SOR. 



y cada uno nos ofrecerá un resultado distinto. 

También conocerás en este momento la utilización det, el punto 
( ) y la coma (,). 

Para aquellos que persigan aplicaciones científicas, el carácter 
() y su utilización cierran esta sesión. 

SESSOM 15 Pág. 143 

Los caracteres que ves en la pantalla se representan de acuerdo 
a una tabla que las configura. Es la tabla ASCII que conocerás al 
inicio de esta sesión. Con CHR$ y SWAP enriquecerás las posibi- 
lidades de tratamiento de variables de cadena. 

DIM reservará espacio para posteriores procesos. 

SESÍON16 Pág. 157 

En el dominio que vamos adquiriendo de la construcción de pro- 
gramas, añadiremos aquí un nuevo conocimiento, el significado 
de SUBRUTINA. 

Para facilitar el conocimiento de las funciones que realiza un 
programa, es posible incluirle comentario. Lo puedes conseguir 
con REM o con (’). 

Trabajando con tablas, ERASE te ayudará a borrar información. 
Una variación del GOTO que anteriormente estudiamos, es el 
0N...G0T0, el cual efectuará la bifurcación según un determinado 
contenido. 

Parecido a lo anterior, pero con posibilidad de retornar al punto 
de partida una vez ejecutado un bucle, la pareja 0N...G0SUB y 
RETURN se estudia con especial interés en esta sesión. 

SESION 17 Pág. 169 

Vamos profundizando en el lenguaje BASIC. Para el tratamiento 
de grupos de datos, dedicaremos esta sesión en exclusiva al 
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conocimiento y práctica de las sentencias READ, DATA y 
RESTORE 

SESION 18 Pág. 181 

Hay varias funciones que, sobre un tratamiento de variables de 
cadena, nos permiten extraer una parte de la misma como es el 
caso de LEFT$ RIGHT$o MID$ También podemos conocer su 
longitud con LEM o contemplar este tratamiento con las nuevas 
facilidades que vas a encontrar con INSTR, VAL ó STR$. 

SESION 19 Pág. 193 

Llegando al final ya de nuestras sesiones, podemos hacer que el 
MSX-C recoja "por su cuenta" ¡o que nosotros tecleemos a tra- 
vés de la sentencia INKEY$. 

Un pequeño truco te permitirá controlar la presencia del cursor. 
Por su importancia, daremos un repaso al tratamiento de cadenas. 

SESION 20 Pág. 203 

Ya hemos llegado al final. Aquí conocerás inducciones que te 
permitirán saber que espacio libre queda en la memoria, FRE, 
preparar la elección de números al azar, RND, o preguntar cual 
es la parte entera de un número con INT. 

Algo que puede serte útil es la sentencia BIN$, que convierte 
números de decimal a binario. 

ANEXO 1 Pág. 213 

Aquí se te ofrece a estudio un completo programa de cifrado, que 
ha de serte útil tanto para comprobar la exacta utilización de 
algunas instrucciones, como para ver la utilidad de los comen- 
tarios. 

ANEXO 2 Pág. 225 

Un conjunto de ejercicios, en los cuales encontrarás tanto el 
planteamiento del problema como su solución, han de ayudarte 
a completar tus experiencias. Aprovéchalos y con su estudio crea 
tus propios programas. El MSX-C ya no es un extraño para tí, 
pero el conocimiento mutuo fia de comenzar realmente a partir 
de ahora. 
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SIGNIFICADO DE LOS SIMBOLOS UTILIZADOS EN EL 
SEGUIMIENTO PRACTICO DE LOS EJERCICIOS 


Cuando veas una mano ^ y significa que se ha de teclear (apretar 
una ó varias teclas del teclado) lo que venga a continuación, que 
pueden ser dos cosas: 


- UN TEXTO: Para pedirte que escribas "Hola", se te indicará: 



- LA REPRESENTACION DE UNA TECLA CONCRETA. Para pedirte 
que aprietes una teda concreta, se te indicará el 
nombre o figura de dicha teda, envuelta en una 
línea. Por ejemplo, para que teclees la tecla RETURN, 
se te indicará: 



Cuando haya que apretar simultáneamente dos teclas, 
se indica mediante un símbolo + , Por ejemplo, si 
queremos que aprietes la teda SHIFT y mientras la 
mantienes apretada, teclees la tecla HOME, se te 
indicará: 

(shift) + (home) 

Hay teclas que tienen dibujados dos símbolos diferen- 
tes, uno superior y otro inferior. Para las mayúsculas 
(en el caso de una tecla que sólo tenga una letra), 
y los símbolos que están en la parte superior de las 
teclas dobles, hay que apretar simultáneamente (a la 
vez) la tecla SHIFT y la teda correspondiente. Hay 
dos teclas SHIFT en el teclado, una a la izquierda y 
otra a la derecha. Por ejemplo: 
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se escribiría así: 


MINIVOCABULAIROO BASIC SVSSX 


(shÍft ) + ( - ) (shÍft) + ( H ) 

GDCD C jD ®+CD 


Este símbolo señala los puntos curiosos e importantes de 
cada sesión. Humorísticamente los llamaremos ¡deas Lumi- 
nosas (IL) y vendrán numeradas por si en alguna otra parte 

del libro nos referimos a alguna IL en especial. 

IL 

Este símbolo representa el número cero. Se cruza una línea 
0 encima de él para no confundirlo con la cuarta vocal, la "o 
Es decir, siempre que escribamos un cero, éste estará atra- 
vesado por una raya diagonal. 

En el lenguaje BASIC hay una serie de palabras que más adelante cono- 
cerás perfectamente. A continuación reflejamos algunas de ellas. No te 
molestes en aprenderlas de memoria o comprender exactamente su 
significado. Solo léelas atentamente y acuérdate que están aquí para 
consultarlas cuando las encuentres en el libro y quieras ver su signi- 
ficado. 

Como muchas palabras BASIC proceden del inglés, te ponemos su 
significado en inglés y su traducción al castellano. Esta traducción no 
es muy literal, sino mas bien explicativa. 


Basic 

Inglés 

Castellano 

ABS 

ABSOLUTE 

Valor absoluto 

ASC 

AMERICAN 

STANDARD 

CODE 

Código Estandard 
Americano 

AUTO 

AUTOMATIC 

Automático 

BEEP 

BEEP 

Pitido 

BIN 

BINARY 

Binario 

CHR 

CHARACTER 

Carácter 

CLEAR 

CLEAR 

Limpiar 

CLS 

CLEAR SCREEN 

Limpiar Pantalla 

CONT 

CONTINUE 

Continuar 

CSRLIN 

CURSOR UNE 

Línea del cursor 

DATA 

DATA 

Datos 

DELETE 

DELETE 

Borrar 

DIM 

DIMENSION 

Dimensión 

END 

END 

Fin 

ERASE 

ERASE 

Borrar 

FOR 

FOR 

Para 

FREE 

FREE 

Libre 

GOSUB 

GO SUBROUTINE 

Ira la subrutina 

GOTO 

GOTO 

Ira 

HOME 

HOME 

Origen 

IF 

IF 

Si... 

INPUT 

INPUT 

Introducir 

INKEY 

IN KEY 

Tecla introducida 

INSTR 

IN STRING 

Dentro de la cadena 

INT 

INTEGER 

Entero 

KEYON 

KEYON 

Teclas dispuestas 

KEYOFF 

KEYOFF 

Teclas no dispuestas 

LEFT 

LEFT 

Izquierda 

LEN 

LENGHT 

Longitud 

UNE INPUT 

LINE INPUT 

Línea introducida 
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Basic 

inglés 

Castellano 

LIST 

LIST 

Listar 

LOCATE 

LOCATE 

Situar 

MID 

MIDDLE 

Del medio 

NEXT 

NEXT 

Siguiente 

NEW 

NEW 

Otro, nuevo 

ON...GOSUB 

ON...GO TO 
SUBROUTINE 

Según. ..ir a subrutina 

ON...GOTO 

ON...GO TO 

Según. ..¡r a 

POS 

POSITION 

Posición 

PRINT 

PRINT 

Escribir 

PRINT USING 

PRINT USING 

Escribir usando 

READ 

READ 

Leer 

REM 

REMARK 

Comentario 

RENUM 

RENUMBER 

Volver a numerar 

RESTORE 

RESTORE 

Restablecer 

RETURN 

RETURN 

Volverá 

RIGTH 

RIGTH 

A la derecha 

RND 

RANDOM 

Al azar 

RUN 

RUN 

Correr, ejecutar 

SHIFT 

SHIFT 

Cambiarporel dearriba 

SGN 

SIGN 

Signo 

SPACE 

SPACE 

Espacio en blanco 

SPC 

SPACE 

Espacio en blanco 

STOP 

STOP 

Parar 

STR 

STRING 

Cadena de caracteres 

STRING 

STRING 

Cadena de caracteres 

SWAP 

SWAP 

Intercambiar 

TAB 

TABULATE 

Encolumnar 

TIME 

TIME 

Hora 

VAL 

VALUE 

Valorar 

WIDTH 

WIDTH 

Ancho 


PARA EMPEZAR A TRABAJAR 

(Solo si el computador aún no ha sido instalado) 

- Poner el MSX-COMPUTER sobre una superficie piaña. 

- Situarse próximos a un receptor de TV dotado de UHF. (Segundo 
canal) 

- Conectar el MSX-C con I a TV mediante el cable apropiado, sumi- 
nistrado con el computador, uniendo la salida trasera RF con la 
toma de antena del TV. 

- Enchufar el MSX-C y la TV. Encender ambos. El MSX-C tiene su 
interruptor en el lateral. 

- Sintonizar la TV en las cercanías del canal 36 del UHF. 

- Poner el volumen de la TV a cero. 

- Sintonizar finamente hasta ver nítida la siguiente pantalla: 



- Apagar el MSX-C 

En este momento se observará que el MSX-C ha abandonado el control 
de la pantalla. Es evidente que el MSX-C se encarga de la pantalla y por 
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ella emite información. La pantalla es un periférico de salida de infor- 
mación. 

La palabra PERIFERICO tiene origen griego y significa "lo que está 
alrededor". 

Pantallas, mandos para juegos, impresoras, etc. Todo esto que está 
"alrededor" del MSX-COMPUTER, son periféricos. 




i 



ARRANQUE 

- Encender el MSX-C, mediante el interruptor situado en el lateral 
izquierdo. Al cabo de 2 segundos se verá la siguiente pantalla: 



Explicación: (solo por curiosidad) 

MSX-System: 

Nombre del sistema operativo del MSX-C. 

MSX viene de Micro Soft Extended. 

Versión 1.0: 

Versión original del sistema operativo. 

1 = Primera edición 
.0 = Sin modificaciones 

Copyrigth 1983 by Microsoft: 

Derechos de autor registrados por Microsoft en 1983. 
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- A los cuatro segundos aparecerá esta otra pantalla: 



Explicación: 

MSX BASIC: Basic del sistema MSX. 

Versión 1.0: Versión original sin modificaciones. 

Copyrigth....: Derechos de autor registrados. 

28815 Bytes free: número de posiciones (octetos) que quedan 
libres para los datos y programas. Un octeto es 
una porción de memoria en la que cabe una letra 
o dos números. 

0K: Quiere decir que un programa ha terminado su 

trabajo y el MSX-C queda a la espera de nuevas 
órdenes o datos. 

□ : Cursor o señal en forma de cuadrado, que señala 

el lugar donde va a escribirse el primer dato o 
información que tecleemos. Cada vez que entra- 
mos una letra o un número, el cursor indica la 
próxima posición para entrar una letra o número 
mediante un desplazamiento. 
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COLOR AUTO GOTO LIST RUN: 

Comandos y sentencias de Basic que no son nece- 
sarias teclear letra a letra pues, por su frecuencia 
de uso, están automatizadas sobre las cinco teclas 
superiores de color gris llamadas teclas de función. 

Ya nos podemos comunicar con el MSX-C a través de su "entrada", el 
teclado, y su "salida ", la pantalla. 
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SESION 1 


Una SESION es el diálogo que tenemos con el MSX-C desde que lo 
encendemos hasta que ¡o apagamos. 

En esta primera sesión aprenderemos a mover el cursor por la pantalla 
y otras cosas muy Interesantes. 

ENCIENDE EL MSX-C 

Después de encender el MSX-C, ¡a pantalla de TV expone los dos textos 
que hemos visto anteriormente. Fijémonos en la última linea, en la 
parte baja de la pantalla, donde se ven las palabras: 

COLOR AUTO GOTO LIST RUN 

Observarás que son cinco, tantas como teclas grises hay en la parte 
superior del teclado. 

Comprobemos que esas teclas se corresponden con las palabras de la 
última línea. 

F 1 (aprieta F\j y se escribe la palabra COLOR 
F2 y se escribre la palabra AUTO 
F3 y se escribe la palabra GOTO 
F4 y se escribe la palabra LIST 
F5 y se escribe la palabra RUN... 
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y además se escribe: 


SYNTAX ERROR (indicación de que hemos hecho algo mal ) 

OK 

Esto sucede porque RUN es la orden de ejecutar el programa que esté 
en la memoria del MSX-C pero la sentencia RUN ha de ir sola en una 
línea , de lo contrario da error. Comprobémoslo: 



2^ CID 
QD 


Y verás que no da error pues RUN ha funcionado correctamente, aun- 
que no hace nada pues no hay ningún programa en memoria. De todas 
maneras lo intenta, no encuentra nada y termina su tarea, tal como nos 
lo indica e/OK y el cursor. 

Las palabras 

COLOR AUTO GOTO LIST RUN 


que figuran en la última línea de la pantalla son un recordario de la 
función que tienen las cinco teclas superiores, las cuales se llaman 
tedas de función, porque tienen una función asignada. Como de 
momento no ¡as vamos a usar, suprimiremos esta última línea. 



KEY OFF 



"KEY OFF'' equivale a! castellano "Teclas no dispuestas". 
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Efectivamente, la línea 


COLOR AUTO GOTO LIST RUN 


ha desaparecido. 

'jSjjF KEY ON ( RETURN) 

y verás como aparece otra vez la línea orientativa. "KEY ON" equivale 
a! castellano "teclas disponibles". 


Si te equivocas escribiendo, retrocede con 
ción, y repite desde ahí. 



hasta la equivoca- 


Si ya has apretado (^RETURN ) y el ordenador da mensaje de error, 
repite toda la línea como si no hubieras hecho nada. 


En este momento debes tener a la vista una pantalla como la que se 
describe a continuación. (Si ha habido errores, puedes tener alguna 
línea más). 



Con la tecla 
que dice: 



sitúa el cursor sobre la primera letra de la linea 


KEY OFF 
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Si te pasas de linea hacia arriba haz bajar el cursor con la tecla 

GD 

Ahora, fíjate lo que va a pasar si sobre esta posición haces 




RETURN 


¿Qué ha pasado al apretar RETURN? 

Pues que la instrucción KEY OFF ha sido obedecida y la última linea 
(COLOR ) ha sido borrada. 

Baja ahora el cursor, si no está ya ahí, hasta la línea que dice: 


y ejecuta: 


KEY ON 


RETURN 


Comprueba que la última línea ha vuelto a aparecer. 


Cada vez que se apriete RETURN, esté donde esté el 
cursor, el MSX-C leerá la linea completa donde está el 
cursor e intentará hacer algo con ella. 



Si lo que encuentra es correcto, lo ejecutará o lo introducirá en memo- 
ria. En cualquier otro caso comunicará un error y quedará a la espera. 

Antes de terminar esta sesión, aprenderemos a limpiar la pantalla. 
Utilizaremos la sentencia CLS (limpiar pantalla ) que va a borrar toda la 
pantalla menos la última línea. Para borrar también esta última línea, 
podemos utilizar también KEY OFF, como ya sabes. 

Vamos a utilizar las dos instrucciones a la vez: 


KEY OFF: CLS 


RETURN 
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APAGA EL MSX-C 


FIN DE LA I a SESION 


IMPORTANTE: Intenta repetir la sesión de memoria. Experimenta acer- 
ca de lo que has aprendido. 

¿Que hemos aprendido ? 

- Conectar el MSX-COMPUTER 

- Suprimir o representar la línea de teclas de función. 

- Comprender la importancia de la posición del cursor. 

- Mover el cursor por la pantalla. 

- Las sentencias KEY OFF, KEY ON y CLS. 

- La posibilidad de varias sentencias por linea a condición de sepa- 
rarlas por dos puntos. 


■ 


EJERCICIOS SESION 1 


Sin consultar otras páginas de este manual, ejecuta los siguientes ejer- 
cicios. 

I o .- Apaga y enciende de nuevo a continuación el MSX-C 

2°.- Suprime la línea "COLOR AUTO..." 

3°.- Tocando una sola vez una sola tecla, situar el cursor al inicio de 
la pantalla, sin borrar el contenido de la misma. 

4°.- Haz aparecer la línea "COLOR AUTO..." 

5°.- Utilizando dos instrucciones en una misma línea, borra la pantalla 
y la línea inferior "COLOR AUTO..." 

6°.- Haz que en la pantalla quede únicamente el cursor. 

NOTA: Si no hallas por ti mismo la solución, mira la solución en la 
página siguiente y repasa esta sesión. 
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SOLUCION A LOS EJERCICIOS DE LA SESION 1 



SESION 2 


En la sesión anterior hemos aprendido, entre otras cosas, a borrar la 
pantalla. En esta sesión vamos a aprender a escribir en ella algunas 
cosas sencillas tales como números, letras, palabras y frases. 

Comencemos por encender el MSX-C y: 

keyoff (return) 


y se ha borrado la última linea. 



Se ha borrado el resto de la pantalla. 
í r!=r PRINT9 (RETURN) 

Como ves, le estamos ordenando al MSX-C que escriba el número 9 y 
lo ha hecho en la siguiente linea, dejando un espacio en blanco a su 
izquierda, antes de escribirlo. 

Lo escribe en la siguiente línea porque en la que estaba era donde ha 
leído la orden de escribir. 


Deja un espacio en blanco porque este espacio se reserva para poner el 
signo cuando éste es negativo. Si es positivo, como en nuestro ejemplo, 
no pone el signo. 


En aritmética, se hace lo mismo, los positivos no suelen llevar escrito 
el signo. 



PRINT-9 



Ahora vemos que escribe el número con el signo 


El MSX-C deja siempre una posición para el signo antes de imprimir 
los números. No pone nada si el número es positivo y pone un - si es 
negativo. 

(jpp PRINT 27/3 (RETURN) 
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Observa que la sentencia PRINT puede escribir el resultado de los cál- 
culos que tenga a continuación. 

En este caso era una división, ya que el signo de la división es la barra 
inclinada. El resultado era, como ves, 9. 

PRINT "27/3 (RETURN) 

¿Que ha pasado?. Que el cálculo de la división no ha sido realizado. 


Por eso ahora no imprime el resultado de la división, si no lo que hay 
después de las comillas. 

Cuando hay comillas después del PRINT esta sentencia no distingue los 
cálculos y toma los números como cualquier otro carácter o símbolo y 
los imprime tal como están. Por eso lo hace en la primera posición de 
la línea, pues no tiene que preveer ningún signo. 

'Tpr PRINT "27/3 PEPE (rETURn) 

Nuevamente lo toma todo como una línea o cadena de caracteres, y 
no efectúa el cálculo de la división. 

Cambiemos la posición de las comillas. 

PRINT 27/3" PEPE (rETURn) 

Observa como ahora sí ha realizado el cálculo de la división y ha toma- 
do lo que hay después de las comillas como una cadena de caracteres. 
Ahora prueba: 

PRINT 27/3" PEPE 8 + 3 (rETURn) 

El segundo cálculo no / o realiza, como ya sabes, porque está a conti- 
nuación de las comillas. 


Si ponemos unas comillas después de PRINT, lo que 
hay después de las comillas se imprime tal cual está. 



Prueba ahora: 


PRINT 27/3" PEPE" 8 + 3 


(return) 


Observa que ahora si ha realizado los cálculos correctamente. 

Como ves, se pueden realizar cálculos también después de unas comi- 
llas. Basta con cerrar las comillas antes del nuevo cálculo. 


Las comillas se pueden abrir y cerrar tantas veces como queramos que 
el MSX-C escriba cadenas de caracteres, textos y mensajes. 

Observa que el resultado c/e 8 + 3=11, tiene un espado delante para 
el signo, pero éste no sale porqué es positivo. 

Todo lo que está entre comillas se deja tal y como está, no se opera 
ni varia interiormente. Se puede decir que es constante. 


IL4 

Vamos a ordenar al MSX-C que emita un mensaje. Las instrucciones y 
ordenes al ordenador, se pueden escribir en minúsculas o mayúsculas, 
a tu comodidad. 

& PRINT "SOY UN COMPUTADOR MSX" (rETURn) 

Te falta poco para que domines la técnica de que el MSX-C emita 
mensajes por la pantalla. 


Constante de cadena es el conjunto de información que 
va entre comillas. Puede estar compuesta de números, 
letras, símbolos y espacios en blanco. 



APAGA EL MSX-C 
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FIN DE LA SESION 2 
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¿Que hemos aprendido ? 

- Imprimir un número, positivo o negativo. 

- Que los números van precedidos de la información sobre el signo 
y seguidos de un espacio en blanco para separarlos de otras 
informaciones. 

- Que PRINT imprime resultados de cálculos. 

- Como influyen las comillas en el control de impresión. 

- Qué es una cadena de caracteres. 

- Escribir un mensaje en la pantalla. 


EJERCICIOS SESION 2 

Sin consultar otras páginas de este manual, ejecuta los siguientes ejer- 
cicios. 

I o . -Que el MSX-C escriba -385. 

8 o . -Que el MSX-C escriba el resultado de la división 36 entre 9. 
(Es decir, 4) 

9 °.-Que el MSX-C escriba 3 + 4 PEPE. 

10°. -Que el MSX-C escriba el resultado de 50 + 35, a continuación 
PAMPLONA, y el resultado de 25 + 5. 

NOTA: Si no hallas por ti mismo las soluciones, búscalas en la próxima 
página. 
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SOLUCION A LOS EJERCICIOS DE LA SESION 2 


SESION 3 


7°.- 

8 °.- 

9°.- 

10 °.- 



PRINT-385 (RETURN) 

PRINT 36/9 (RETURN ) 

PRINT "3 + 4 PEPE (rETURn) 

PRINT 50 + 35 "PAMPLONA" 25 + 5 (^RETURn) 


El MSX-C tiene MEMORIA Tú ya sabes que la memoria sirve para 
recordar, para almacenar recuerdos. Lo que un día vimos, oímos, sen- 
timos, a veces está presente en nuestra memoria. Alguna vez algo nos 
"entró" en la memoria y puede que lo recordemos. 

La memoria del MSX-C, si lo usamos bien, no solo "puede" recordar, 
sino que RECUERDA SIEMPRE lo que le hemos "entrado" a condición 
de que sigamos unas pequeñas reglas. 

La primera regla es sencilla: 


Q 


Todo lo que introducimos en la memoria del MSX-C, 
si no lo cambiamos o borramos, está presente en dicha 

y 


memoria y puede usarse mientras no apaguemos el 
MSX-C. 

IL5 



¿Qué podemos introducir en la memoria del MSX-C? 

en la memoria del MSX-C podemos introducir datos. 

Suponte que un amigo te dice, señalando un grupo de gente: 

- "Aquel de la barba se llama Juan". 

En tu memoria queda una pareja de ideas que, muy sencillamente 
expresada, es así: 

Barba - Juan 

Si tu memoria es buena, cada vez que veas aquella misma barba en 
aquella misma cara, te acordarás del nombre "Juan". 

Haz: 
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L. 


a = 71 (fíETURn) 

Le hemos dicho a / ordenador: "Mira, esta a es igual a 7 1 " y el orde- 
nador guarda en su memoria I a pareja 

a = 71 

Ahora: 

PRINT a ( rETURn) 

Creo que ya sabias que iba a imprimir el número positivo 7 1 . 

¿Qué pasará ahora si hacemos...? 

a = 15: PRINT a (rETURn) 

Pues que se imprime el número 15. 

Resulta que a ha variado de valor. Primero estaba "ligada" al valor 
71, pero después la hemos ligado al valor 15. 

Por eso: 

PRINT a (RETURNj 

Imprime ahora 1 5. Hemos borrado el valor 7 1 anterior y hemos puesto 
1 5 con: 

a = 1 5 (reTURn) 


O 


La memoria es como un armario de cajones. Cada 

r-if 


cajón tiene por fuera una etiqueta y dentro puede tener 



algo o estar vacio. 


IL6 

Cuando hago 


a = 71 (rETURn) 

estoy guardando en el "cajón" de etiqueta a el número 71. 


PRINT a (RETURN) 

es como abrir el cajón para ver su contenido. 

Si ahora hago: 

a = 1024 (rETURn) 

estoy "quitando" el valor "1 5" y "metiendo" el número 1024. 


r^\ 


En un cajón o "celda", de memoria solo está lo último 

\TU 


que entra. Lo que entra, "echa" a lo que estaba allí 

0 


anteriormente. 


IL7 

Por eso, si ahora: 


21^ a = -100 : PRINT a (rETURn) 
verás que imprime el número negativo. 

-100 

Como ves, empleando el signo = hemos ido variando el valor del 
número "ligado"a la letra a 


¿Como podemos "limpiar" o "vaciar" el cajón a? 


a (return) 


Recuerda que 0 es el número cero y se cruza con una linea para dis- 
tinguirlo de la letra o. 



PRINT a (RETURN) 


Como ves, a contiene cero. 

2^ PRINT n (RETURN) 

También n contiene cero. Claro, no la hemos "cargado" con nada de 
momento. No la hemos usado hasta ahora. 
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El MSX-C responde con 0 si preguntamos por el con- 
tenido de un nombre de variable (a, n,) cuando no 
hemos usado antes esa variable o cuando la hemos 
puesto a cero. 


vamos ahora a cargar a con 3,1416 (Tres enteros y mil cuatrocientas 
dieciseis diezmilésimas). En el MSX-C la coma decimal se expresa con 


un punto. 





PRINT a.n 


RETURN 


Observarás que cada "cajón" ha conservado lo que le hemos cargado 
y el valor de n no ha modificado el de a. 

Claro, pues son dos variables distintas. Ambas pueden tener y guardar 
su propio contenido de forma independiente y particular. 
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Observa que el MSX-C imprime lo mismo que en la introducción ante- 
rior. Esto quiere decir que 57.3 está en una celda de memoria con la 
etiqueta "pe" y otra con ia etiqueta "peso" , pero en cambio solo la 
hemos cargado una vez a "peso", ¿Como es que puede estar en dos 
variables ? 



Los nombres de las variables solo pueden tener uno o 
dos caracteres. Si tienen más , se ignoran el tercero 
y ios demás como nombre de variable. 


PRINT p, pe, pes, peso (rETURn) 

Observa que P es cero y PE es 57.3. 

Pero PES y PESO son como PE porque i a tercera y cuarta letra se 
desprecian y queda siempre PE. 

Como ves, P es cero porqué no ia hemos "estrenado". En informática 
se dice "Inicializar", de iniciar. No le hemos dado ningún valor y el 
MSX-C toma 0. 



¿Qué hemos aprendido? 

- Que en ia memoria del MSX-C se pueden guardar valores nu- 
méricos. 

- Que estos valores numéricos para ser usados mas de una vez, 
hay que "cargarlos" en una variable a través del signo = 

- Que las variables pueden cambiar su contenido. 

- Que el MSX-C responde con 0 cuando queremos escribir el 
contenido de una variable que no hemos cargado, inicia/izado. 

- Que para indicar decimales se usa el punto, no la coma. 

- Que todas las variables se pueden borrar a la vez con CLEAR. 

- Que los nombres de las variables pueden tener como máximo 
dos caracteres. Si tienen más, se ignoran. 

-Que el MSX-C distribuye las variables escritas con PRINT a 
razón de dos por línea. 
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EJERCICIOS SESION 3 


Sin consultar el presente manual, resuelve los siguientes ejercicios: 

1 V. -Utilizando una sola línea, carga en memoria los valores, 3, 15, 
-8400 y 1 000 en las variables MI, M2, M3 y M4. 

En otra línea, ordena ai MSX-C que escriba los valores de M2 
y M3. 

1 2°.- Carga la variable pi con el valor 3,1416 

1 3°.- Haz que el MSX-C escriba el mensaje: 

"El contenido de la variable MI es:" 

Si no hallas por ti mismo la solución, mírala en la página siguiente 
y repasa esta sesión. 
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SOLUCION A LOS EJERCICIOS DE LA SESION 3 
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SESION 4 


Seguiremos con las variables numéricas. 


CLEAR ( RETURN 


wm = 8*4: PRINT wm ÍRETURn) 

Observa que se ha escrito el número 32. Has de saber, ya para siempre, 
que el símbolo * (asterisco), es para el MSX-C el signo de multi- 
plicación. Es decir, equivale a la X (signo "por"/ que utilizamos ma- 
nualmente para multiplicar. 

Por ejemplo: 

PRINT 5 *3 *2 (RETURN) 

Fíjate que escribe 30, que es el resultado de multiplicar 5 x 3 x 2. 

El MSX-C no puede utilizar el símbolo matemático de multiplicar, ¡a 
X, porque lo confundiría con la letra X del abecedario. 

wm = 27/3: PRINT wm "PEPE" ( RETURN^) 

Esto nos resulta familiar. 



A una variable numérica se le puede asignar un valor 
procedente de un cálculo. 


Como ves, wm toma el valor de dividir 27 entre 3. 

En este caso, el MSX-C realiza primero el cálculo, y carga a la varia- 
ble el resultado obtenido. 


En este momento es necesario haber comprendido que: 
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El símbolo = escrito a continuación de una variable 

[ry 


representa que el valor de lo que está a su derecha 



es asignado (cargado, puesto) a la variable numérica 

IL1 2 


que está a la izquierda de = 


Por ejemplo: 

r JÍ^r > c = 2 * 3.1 41 6 * 4: PRINT C 

Se imprime el valor 25. 1328 que es el resultado de las multiplica- 
ciones de la derecha del símbolo =, símbolo llamado de "asignación", 
y ese resultado se asigna a la variable C. 

Vamos a usar cálculos para asignar su valor a diversas variables. 

SI = 5 + 4:S2 = 7 + 28:S3 = 51 + 10 ^RETURn) 
vamos a imprimir utilizando el punto y coma para separar las variables: 

PRINT SI ; S2; S3; S4; (rETURn) 

Observa que: 

I a .- El punto y coma en PRINT hace que se escriban los valores 
uno al lado del otro. Más de dos por línea. En realidad, 
tantos como quepan en la misma línea. 

2 a .- Los resultados escritos, aunque están juntos, conservan un 
espacio en blanco para el signo delante y un espacio en 
blanco detrás. ¿Te acuerdas?. 


© 


numérica) está oculto el valor que se va a cargar o asignar a la 
variable. 

¿Como obtiene el MSX-C este valor?. Pués realizando los cálculos. 
Repetimos: 

& PRINT SI ;S2;S3;S4 (rETURn) 

Veamos que: 

51 tiene asignado el valor 9 

52 tiene asignado el valor 35 

53 tiene asignado el valor 6 1 

54 tiene asignado el valor 0 

¿Qué pasará ahora? 

/ J^T J S4 = SI + S2 + S3 (RETURN) 

De momento el MSX-C sólo dice OK. ¿Que habrá hecho?. 

Vamos a averiguarlo. 

PRINT S4 (RETURN) 

i i Ha sumado S 1 + S2 + S 3 y lo ha asignado a S4Ü 


IL13 


En una EXPRESIÓN NUMÉRICA (conjunto de cálculos 
a la derecha de =), pueden estar presentes constan- 
tes numéricas (números) y variables numéricas. 



Ahora utilizaremos la misma PRINT pero en lugar de separar las va- 
riables con un punto y coma, las separaremos solo con una coma. 
Veamos que pasa: 

PRINT SI, S2, S3, S4 (rETURn) 

¿Ves la diferencia?. Ahora solo hay dos números por línea. 

La variable S4 como no la hemos inicializado (cargado), está a cero. 
Recuerda que en el cálculo a la derecha de = (llamado expresión 


Si ahora hacemos, 

PRINT SI; S2;S3;S4 (rETURn) 

El valor de S4 ya no es cero, ya que está inicializada con el valor de 
SI + S2 + S3 

Resumiendo: Cuando el MSX-C tiene que hacer un cálculo, opera con 
los números de la expresión. Si dentro de esta expresión se encuentra 


36 


37 






una variable, va a I a memoria, toma el contenido o valor de esta va- 
riable, y con este valor prosigue el cálculo. 

En el ejemplo que hemos visto (S4 = SI + S2 + S3), el MSX-C 
ha tomado de la memoria el contenido de S 1 , S2 y S3, los ha sumado, 
y el resultado lo ha cargado a S4. 

Cambiemos un poco. 

& ca = S4 * S2 - S4 (reTURn) 

PRINT ca 

Observa que el MSX-C ha multiplicado S4 por S2 y después le ha 
restado S4. 

En números es\ 1 05 x 35 - 1 05 = 3570 
Ya sabes que también se puede: 

PRINT S4*S2-S4 (rETURn) 

Recuerda que como últimamente no hemos hecho CLEAR, tenemos 
todavía los valores de las variables en la memoria. 

Vamos a escribir un bonito mensaje: 

PRINT "la suma de SI y S3 es:"; SI + S3 (rETURn) 
Observa que: 

- Lo que está entre comillas, se toma como está y se escribe. 

-SI + S3, como no está entre comillas, se entiende como un 
cálculo y el MSX-C lo realiza acudiendo a memoria para saber 
los valores de las variables SI y S3. 

- El punto y la coma hace que el mensaje y el resultado del cálculo 
se escriban próximos. 

CLEAR: CLS (reTURn) 


FIN DE LA SESION 4 


¿Que hemos aprendido? 

- Que el asterisco (*) es el signo de multiplicación en BASIC. 

- Que una variable puede tener asignado el valor de un cálculo. 

- Que el símbolo ( = ) no es el símbolo de la igualdad matemá- 
tica, y que en BASIC se utiliza para asignar un contenido o 
resultado. 

- Que la derecha del símbolo ( = ) hay una expresión numérica 
cuyo calor se asigna a la variable numérica cuyo nombre esta 
a la izquierda del símbolo ( = ). 

- Que a una variable numérica puede asignársele un valor pro- 
cedente de operaciones entre números y variables. 

- La función o utilidad del símbolo de punto y coma (;) en la 
sentencia PRINT. 
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EJERCICIOS DE LA SESIÓN 4 


14°.- Asigna el cálculo 2 * 5.3 + 15 - 8/2, cuyo resultado es 21.6, 
a la variable n. 

Haz que el MSX-C escriba lo siguiente: 

,2x5,3 + 15 -8/2, = ,21.6, 

Mensaje Cálculo 
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SESION 5 


Vamos a ver ahora algunas operaciones aritméticas. 
SUMA 



PRINT su RETURN 


La variable SU ha tomado el valor 10, que es el resultado de la 
operación de suma. 

Así, SU contiene ahora el valor 1 0. 

RESTA 


re = 4096 - 512 ( ^RETURN J 
& p RINT re (rETURn) 

Ahora, la variable RE ha tomado el valor 3584, que es el re- 
sultado de la operación de resta. 

SUMAS Y RESTAS 

VI = RE + SU - 1000 ( RETUR n'') 


PRINT vi (rETURn) 

Observa como en la expresión numérica anterior hay variables 
numéricas y constantes numéricas. 

Las variables numéricas son RE y SU. La constante es -1000. 

Para poder realizar el cálculo el MSX-C acude a la memoria 
para tomar el contenido de cada una de las variables. En este 
caso suma el valor de RE a! de SU y luego les resta -1000. 


43 





MULTIPLICACION 


mu = re*su ( RETURN 


rjj^ 2 PRINTmu RETURN J 

Exactamente igual que en el caso anterior, pero ahora en mul- 
tiplicación. Recordemos que el asterisco (*) es, en Basic, el signo 
de multiplicación. 


DIVISION 


rj^p PRINT re/su ( ^RETURNJ 

Es también el momento de recordar que el símbolo (/) es, como 
en matemáticas, el de la división. 

También es oportuno recordar que se puede imprimir el resultado 
de un cálculo sin tener que guardarlo en una variable. 

PRINT "re/su = re/su ( ^RETURn ) 

Ya sabes que la diferencia entre una constante de cadena y 
cualquier otra cosa es que la constante de cadena va entre 
comillas, y se escribiré tal como está. 

Por eso "RE/SU" no se cálcula y RE/ SU sí. 

SUMAS, RESTAS, MULTIPLICACIONES Y DIVISIONES 


PRINT 53 + 15 - SU + 35 * RE - 2525/12.5 


(^RETURN) 

No estaría mal que tú mismo hicieras también el cálculo a mano. 
¿Como lo hace el MSX-C? 
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- Primero calcula las multiplicaciones y las divisiones. 

35 * RE = 35 * 3584 = 125440 
2525/12,5 = 202 








/ 2§? D PRINTa (RETURN) 

Lo que hemos hecho ha sido un BUCLE o CICLO de sumas a! valor de a. 





El valor de una variable puede figurar como parte de 
la asignación a esa misma variable. 



IL15 


Este era el caso de a = a + 10, donde la variable a está a la 
izquierda y a la derecha del signo ( = ) de asignación. 

Para entenderlo, podemos hablar de valor VIEJO de la variable y de 
valor NUEVO de la variable. 

Por ejemplo: B5 = B5 * 13 significa que la "nueva" B5 vale lo que 
vaha la "vieja" B5 antes, multiplicado por 13. 

a = a + 10 quiere decir que la "nueva" a toma el valor de la "vieja" 
a, más 1 0. 

Veamos una nueva operación aritmética. 

EXPONENCIACION 


Cuando un número se multiplica varias veces a si mismo, se dice 
que lo estamos "ELEVANDO" a una potencia determinada. 



OLEAR (RETURN) 

(borrar variables) 


(shift) + (home' 

) (borrar pantalla) 

3^ 

a = 4 (rETURn) 

(inicializamos a con el valor 4) 


'W 

a = a *4 ( 

^return) 

(multiplicamosa por su primervalor) 


PRINTa 

(return^ 

) (vemos su valor actual) 

¡y 

(O) 

(subir hasta a = a*4) 


(return^ 

) 



(return^ 

) 



PRINT a (RETURN) 


Comprobamos que ahora el valor de a es de 64. 


El MSX-C puede hacer automáticamente este cálculo de la poten- 
ciación de una variable, mediante el símbolo del acento circunflejo C). 


Veamos : 



OLEAR (RETURN) 
a = 4.-PRINT a"3 (rETURn) 


¿Ves?. El resultado es el mismo de antes. El MSX-C ha "ELEVADO" 
a a a la tercera potencia. 



PRIN1 1000 3 (rETURn ) (esto da mil millones). 

PRINT 3.1416 * 5 2 (fiETURN^esto calcula la su- 
perficie de una circunferencia de radio 5). 



OLEAR: cls (rETURn) 
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¿Que hemos aprendido ? 


En una expresión numérica, la exponenciación ( ) es la primera ope- 
ración que realiza el MSX-C. 

P = 35 + 1 5/3-2 3 + 5 *8 (rETURn) 

PRINTp (^R ETURN) 

Esta expresión numérica, el MSX-C la calcula así: 

1 °. - Las exponenciaciones 

2"3 = 2x2x2 = 8 

2°.- Las multiplicaciones y las divisiones 
15/3 = 5 
5 * 8 = 40 

3°.- Las sumas y las restas 
35 + 5-8 + 40 = 72 
Siempre por este orden: 

POTENCIAS - MULTIPLICACIONES y DIVISIONES - SUMAS y RESTAS. 

FIN DE LA SESION 5 


Ejemplo: 



- Sumas, restas, multiplicaciones, divisiones y exponenciaciones en 
el MSX-C. 

- Variables cuyo valor dependen de otras variables. 

- Variables influidas por su antiguo valor. 

- Que el símbolo ( = ) no es la igualdad matemática. Es el símbolo 
de asignación de valor. 

- Hacer un bucle repitiendo las sentencias con ayuda del cursor 
hacia arriba. 

- El orden de cálculo de las expresiones numéricas. 
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EJERCICIOS DE LA SESION 5 


SOLUCION A LOS EJERCICIOS DE LA SESION 5 


1 5°.- Ejecuta, a través del uso de PRINT, el siguiente cálculo: 

7 + 15x2 - 14/2 

1 6°.- Haz que la variable c sea a! principio igual a 8, y después que 
se multiplique a si misma. 

Muestra el resultado CGn PRINT c. 

1 7°.- El número pi es 3. 14 1 6. 

La fórmula de la longitud de una circunferencia es 2 x pi x radio. 
Calcula e imprime la longitud de una circunferencia de radio 225. 




c ~ c * c (retur n) 

PRINT c (rETURn) ( = 64) 

PRINT 2 *3.1416 *225 (r~ETUR n) ( 


( = 30 ) 


1413,522) 


17 °.- 



SESION 6 


Conocemos ya las variables numéricas. Algo así como etiquetas de 
cajones en las cuales guardamos provisionalmente algunos valores 


numéricos. 


En algunos casos guardamos los valores directamente: 

a = 35 : PRINT a (rETURn) 

En otros casos guardábamos los valores a través de cálculos. 

b = a * 3 : PRINT a, b (rETURn ) 

Ahora es el momento de que aprendas a preguntar al MSX-C por el 
valor o contenido de una variable sin tener que teclear PRINT. 

Primero tienes que saber que para teclear ?, debe hacerse (sHIFt) + 

CD 

Ahora, haz esto: 

? a ( ^RETURN) 

Escribir ? es igual que escribir PRINT 

Cuando escribimos ? es como si le dijéramos a! MSX-C ¿ Qué es ... ? 


^ ?b 

¿ves que fácil?. 


? b RETURN 



? es una forma breve de escribir PRINT. 


? a * b RETURN 


Bien, ya lo has entendido, ¿verdad?. 
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después escribe ¡a constante de cadena 

de la semana es 

y con di$ escribe 

lunes 

En esta ? (PRINT) hay dos textos mezclados con dos variables. Una de 
ellas, di, es numérica y la otra, di$, es de cadena. 

di = 4 : d¡$ = "jueves" ( ^RETURn) 

Ahora, con el cursor hacia arriba, vete a la línea que tiene la sentencia 
de impresión ? "El dia y 



Como hemos alterado el valor de di y de di$ y hemos impreso una 
nueva frase. 


Así, cuantas veces quieras, puedes ir cambiando el valor de di y d¡$ 
y obtendrás los mensajes apropiados. 

Claro que si le dices algo erróneo, por ejemplo: 

di = 3 : di $ = "sábado" ( WuRn) 

y ahora vuelves a ir a la ? para pedir que te escriba el mensaje, 
y el MSX-C te escribirá: 

"El dia número 3 de la semana es el sábado" 

lo cual es erróneo, pero el MSX-C hace lo que tú le has pedido. 

¿Te das cuenta que el MSX-C solo hace aquello que tú le dices?. 
El no sabe que el tercer día de la semana es el miércoles. Tan solo 
"TIENE" lo que tu le "das". 


También puedes hacer que el MSX-C escriba cosas absurdas. 

di $ = "bélgica, la hermosa" (reTURn) 


vuelve a situarte con el cursor en la sentencia de impresión (?...) y 
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El MSX-C escribirá: 


EJERCICIOS DE LA SESION 6 


El dia número 3 de la semana es bélgica, la hermosa 

Como ves, en di $ puedes "cargar" todo / o que te apetezca, siempre 
que vaya entre comillas. 


<g) 


Tener lógica quiere decir que cuando se hace un pro- 
grama hay que pensar en lo que deseamos que haga, 
para que no hagas cosas absurdas. 





18°.- Inicial iza la variable ed con tú edad. Inicia liza la variable no$ 
con tu nombre. Imprimir: 

"Soy (nombre) y tengo (edad) años" 

19°.- di * 5 :xy$ = "viernes" (rETUR NJ 

Imprimir: 

HOY ES VIERNES, DIA 5 


IL1 8 


FIN DE LA SESION 6 


¿Que hemos aprendido? 

- La ? es una abreviatura de PRINT 

- Las variables de caracteres de cadena se nombran con un signo 
de dólar ($) al final. 

- En las PRINT puede haber mensajes, variables de cadena, varia- 
bles numéricas y cálculos. 

- Las variables de cadena se cargan con caracteres situados entre 
comillas. 

- Cuando "CARGAMOS" variables hemos de considerar que lo 
sean con valores adecuados para lo que queremos obtener. 
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SOLUCIONES A LOS EJERCICIOS DE LA SESION 6 




: 


18°.- Por ejemplo: 


ed = 15 : no$ = "JOAN CREUS" ( RETURN 


? "Soy no$; " y tengo ed; " años" ( RETURN 


? "Hoy es xy$;'', día di ( RETURN 
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SES80N 7 


Hoy vamos a dar un salto de gigante. 

Ya sabes que en la memoria del MSX-C puedes guardar datos numé- 
ricos y de cadena. Tan solo tienes que darles nombre para poderlos 
cambiar, representar o usar. 

Pero, ¿Que haces si...? 



y ¿cuando haces...? 



IL1 9 

¿Como?. Vamos a verlo 


? a (RETURN) 

Esto, ya lo sabes, hace que el MSX-C escriba en pantalla el valor de la 
variable a. 

Pero ahora... 

10 ?A (RETURN ) 

¡Caramba! ¿que ha pasado? 

El MSX-C parece no hacer nada. Ni tan siquiera ha dicho OK. 
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Cuando una sentencia (introducción, orden) va prece- 
dida por un número entero, no se ejecuta. Se guarda 
en memoria con ese número de identificación. 


Para comprobar que realmente 1 0?A se ha almacenado en i a memoria, 
vamos a listarla, a llamarla y traerla desde la memoria a la pantalla. 

r í^r LIST 10 ( rETURn) 

Fíjate, aquí está. Fíjate más, el MSX-C ha cambiado el ? por su equi- 
valente PRINT 

/ 7p? p 5a = 71 (RETURN) 

Ya hemos almacenado esta sentencia también en la memoria. 


Hemos introducido el número 71 en a. El número 5 no es un valor, 
es un identificativo, un número de orden. 


Veamos como se ha introducido en la memoria. 

Aquí está también. 


LIST 5 (RETURN) 


Atención ahora, vamos a descubrir algo muy importante: 

LIST (rETURn) 

Se han listado las dos sentencias que habíamos almacenado en la 
memoria precedidas con un número y en orden ascendente del número 
que llevan. 


r\ 


Si se r LIST (^RETURN J , todas las senten- 
das que~hemos introducido, se listan por el orden de 
su número. 
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i i Ya tenemos un programa en memoria!! 


Vamos a poner otra sentencia en la memoria. 

P 2 CLS (RETURN) 

Ya la tenemos en memoria, 
limpiemos la pantalla 

¡y (shift) + (home) 

Y ahora volvamos a listar todas las sentencias que hemos introducido. 
& LIST (RETURN ) 

Ya tenemos a la vista nuestro primer programa. Veamos que dice: 

2 CLS (limpiar la pantalla) 

5 A = 7 1 (cargar 71 en a) 

10 PRINT a (Imprimirá) 

Ahora queremos que este programa (conjunto de tres sentencias) se 
ejecute. Para ello, tenemos que dar la orden RUN • 

/ J^T‘ RUN (rETURn) 

¡¡Nuestro programa ha funcionado!! 

Veamos que ha hecho. 

1 0 Se ha borrado la pantalla 
2° Se ha cargado 7 1 e/7 a 
3 o Se ha escrito el valor ote a (71 ) 

Exactamente ¡o que teníamos ordenado en las sentencias. 

A este conjunto de sentencias que se ejecutan seguidamente, una 
detrás de otra en el orden de sus números de identificación, le lla- 
mamos programa 

Por cierto, ¿estarán todavía en memoria las instrucciones? 

Vamos a comprobarlo 

LIST (RETURN) 


60 


61 








Veamos si sigue el programa allí. 



Ahora el programa ya se ha borrado, ya no está en memoria. Así pues, 
recuerda que NEW sirve para borrar los programas que estén en la 
memoria. 

NEW significa nuevo, otro, y borra totalmente el programa que haya en 
memoria para dejar sitio a otro programa. 



30 ? "El dia di; " es el d¡$ ( ^RETURN ^ 

Observa que en vez de ejecutar cada vez la sentencia que escribimos, 
el MSX-C esperará a ejecutarlos todos y por orden, a que le demos la 
orden RUN. 

i i Ade ¡ante!! 



Ahora prueba 

& GD 


también ejecuta el programa. 
Pruebas varias veces el F5 
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Es pues más cómodo utilizar F5 para "lanzar" o ejecutar programas. 


FIN DE l_A SESION 7 


¿Que hemos aprendido? 

- En memoria puede estar: 

variables numéricas 
variables de cadena 
instrucciones de programa 

- Las instrucciones, para estar en memoria, tienen que estar nume- 
radas. 

- El número de instrucción (identificativo) indica al MSX-C el orden 
en que deben ejecutarse. 

- LIST ( húmero ) lista en la pantalla la instrucción que tenga ese 
número. 


- LIST, lista en pantalla todas las instrucciones de un programa. 

- NEW borra programas. 


- RUN ejecuta (pone en marcha) el programa que esté en memoria. 



hace las funciones de RUN. 
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EJERCICIOS DE LA SESION 7 


20°. -Introducir en memoria el siguiente programa: 



Introducir una nueva instrucción con el número 40, que ordene 
imprimirse y di 

Listar el programa 

Ejecutar el programa con teda de función F5 

21 °.- Añadir una sentencia, al principio del programa, que borre la 
pantalla antes de escribir el resultado. Ponerle el número 5 a esa 
instrucción. 

Después ejecutar con 

& RUN (RETURN) 

22°. -Con el programa tal como está, probar varias veces 

9 GD 

y explicar lo que sucede. 
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SOLUCIONES A LOS EJERCICIOS DE LA SESION T 

j 

20°.- - LO ~ 40 PRINT suma, división (rETURN 
(o 40 PRINT su, di) 

LIST (rETURn) 

& GD 

21 °..^ 5 CLS (rETURn) 

, 

0¡P run (return) 


22°. -Como CLS borra cada vez la pantalla, cada vez el resultado se 
escribe en el mismo sitio. 



SESION 8 


Hasta ahora hemos aprendido, entre otras cosas, a imprimir constantes 
de cadena, constantes numéricas e incluso variables de estos dos tipos. 

Repasemos: 




30 PRINT "SOY 
(return') 


Si ahora hacemos 


no$; 


y mido JU; " metros" 


GD 

veremos que el MSX-C imprime (escribe) en la pantalla, por este orden: 
1°.- La constante de cadena "SOY" 


2°.- El contenido de la variable de cadena no$ que, en este momento, 
es "JUAN", tal como la hemos cargado en la sentencia 20. 

3°.- La constante de cadena "y mido". 

4°.- El contenido de la variable numérica JU que hemos cargado en 
la instrucción n° 10 con el valor 1,80. 

5°.- La constante de cadena "metros". 


Los puntos y comas hacen que constantes y variables se escriban 
juntas. Hay que cuidar los espacios en blanco entre constantes y varia- 
bles de cadena. Ya sabes que las constantes y variables numéricas se 
escriben con un espacio o, signo por delante, y un espacio por detrás. 
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Vamos a aprender a modificar un programa. Para ello, para escribir 
de nuevo en la pantalla el programa que tenemos en memoria, utiliza- 
ríamos la sentencia LIST, pero lo haremos ahora apretando la teda 
F4, que nos va a realizar la misma función. 



Rápidamente aparece el I id a do del programa. Para algo que enten- 
derás más adelante, vamor a borrar el OK Para ello: 


C2D GE) GE) 



IL24 


ATENCION: 

& CE) 


Aparece la palabra RUN se ejecuta el programa y termina con un OK 


Para modificar (cambiar) algo del programa, subamos con 
hasta la línea número 1 0 del programa. Para ello: 



(7 veces) 


^ CdO ® veces ^ 

Ahora el cursor debe estar sobre el 8 del valor de la variable JU. Si 
no I o está, mueve el cursor hasta que se situé exactamente sobre el 
número 8 de: 1 0 JU = 1 . \q\ 



i El número 8 ha cambiado por el 6! 


68 











Ahora hemos vuelto a modificar el programa y el cursor debe estar 
sobre la palabra RUN 



Observa como ha cambiado la impresión. 

Incluso se ha alargado la frase, pues hemos incluido 1,75 donde antes 
había 1,6. 

Cuando una frase es más larga que la que había anteriormente en su 
lugar, no tenemos problemas, pero en el caso contrario, si la nueva 
frase que escribimos es más corta que la anterior, podemos tener algún 
problemilla. 

Probemos a ver aue pasa si volvemos a hacer JU =1.6 

(2l) (7 veces) 

,r r^r C O ) (8 vecesJ 

Sf" & 

El "7" ha desaparecido y el cursor está sobre el "5". 



Como ves, la última letra de la frase anterior, la letra s se repite, pues 
al ser más corta la nueva frase, la palabra "metros" retrocede pero no 
borra lo que había antes. 
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t 

t IL26 



Para evitar que queden restos de impresiones anterio- 
res allí donde vamos a imprimir algo nuevo, es conve 
niente borrar ¡o anterior. 


Para ello hay que saber y controlar donde se va a imprimir. 

El MSX-C tiene la pantalla dividida en 24 líneas (numeradas del 0 al 
23) y 37 columnas (numeradas del 0 al 36/ 


Hay una instrucción (LOCATE) que indica el punto exacto donde debe 
situarse el cursor. Por ejemplo, para iniciar una impresión. 


25 LOCATE 5,20 ( RETURN 


& GD 

Como ves, aparece la impresión en la fila 20, comenzando en la 
columna 5. 


O sea, que: 

LOCATE columna, fila 

indica al cursor que inicie la impresión en la columna y fila indicadas. 

Ahora, con las teclas que mueven el cursor, vete a la línea 10 del 
programa en la pantalla. Para ello has de hacer, más o menos: 



(21 veces) 


(8 veces) 



Hemos dado a JU el valor 1 .95 
Ahora ejecuta sobre RUN 
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^ GD (3 veces) y ( ^RETURn ) 

El programa se ha ejecutado y la impresión se ha ajustado a ¡a nueva 
longitud. 

Fíjate que como estamos variando la variable JU, en consecuencia 
varia también la impresión de salida. 

Observa que LOCATE hace aparecer en el sitio indicado la impresión. 

Vamos ahora a entrar dos nuevas líneas de programa, con un número 
de orden o secuencia situado entre dos instrucciones ya existentes: 

26 PRINT STRING$ (31, " ") (rETURn) 

27 LOCATE 5,20 (rETURn) 

Ya hemos introducido dos nuevas líneas de programa. 

STRING$ (31, " ") es una instrucción que "entrega" al PRINT una 
cadena de espacios (31 en este caso) en blanco. Si pusiéramos 
STRING$ (12, "F") entregaría una cadena de 12 efes. 

Con esta instrucción, al imprimir una cadena de 3 1 espacios en una 
linea, es como si borráramos lo que había en la línea. 


Veamos el programa en su totalidad. 



En pantalla sale: 

10JU = 1.95 Aquí se carga JU con 1.95 
20 N0$ = "JUAN" Se carga N0$ con "JUAN" 

25 LOCATE 5,20 El cursor, aunque no se vea, se posiciona en la 

línea 20 y columna 5. 

26 PRINT STfllNG$ (31, " "): LOCATE 5,20 

Se imprime 31 espacios en blanco. Lo que hubiera 
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antes aquí, se ha borrado. Luego, el cursor vuelve 
donde estaba. 

30 PRINT "SOY N0$; " y mido"; JU; " metros" 

Aquí se ordena escribir el mensaje deseado. 

Como ves, hemos ido introduciendo líneas o instrucciones nuevas de 
programa entre otras ya existentes. La única condición, es que tengan 
un número de instrucción propio y único, que corresponda al lugar 
donde queremos que vaya. 

Por ejemplo, a la instrucción número 26 le hemos dado este número 
porqué queríamos que se ejecutara después de la 25 y antes de la 30. 

Puede darse el caso de que entre dos líneas existentes no podamos 
situar otra, por ser las existentes consecutivas. 

Por ejemplo, entre las lineas 25 y 26 no podemos colocar ninguna 
instrucción. 

¿Que podemos hacer si entre la instrucción 25 y la 26 queremos 
colocar una instrucción? 


El MSX-C tiene una solución: 



Observarás que RENUM deja el programa como estaba pero renumera 
las líneas efe 10 en 10 para dejar sitio por si queremos poner otra 
sentencia. Por ejemplo: 

antes: 25 LOCATE) 

/ No cabía otra instrucción entre las dos. 

26 PRINT I 

ahora: 30 LOCATE) 

> cabes varias instrucciones entre las dos. 

40 PRINT i 

35 CLS ( F5 ) 
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Con esta instrucción el programa se ejecuta igual que antes pero se 
borra I a pantalla antes de imprimir. 


FIN DE LA SESION 8 


3 ? C F5 ) (varias veces) 

Observa que cada vez se ejecuta de la misma manera. 

® ( RETURN ) 

Hay una línea de instrucción con el número 35 
/ J^ =i RENUM (reTURn) 

5F 2 GD (return) 


Fíjate que ya no existe la línea 35 pero que el programa es el mismo. 




y 


Lo importante no es el número de sentencia, sino la 
secuencia u orden de las sentencias. 

w 
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Con RENUM podemos hacer que el programa comience en un número 
de sentencia cualquiera (menor que 65530). 


Por ejemplo: 



RENUM 1000, ,7 (rETURn) 


Esto hace que el programa se renumere y empieze a partir del número 
1 000 , y después las numera de 7 en 7. 


Para verlo: 

( ~F4 ) (RETURN) 

Para comprobar que el programa funciona igual.. 

3 ^ ® 


¿De acuerdo ? 


¿Que hemos aprendido hoy? 

- DEL borra el carácter donde está el cursor. 

- Cambiar un carácter. 

- Cambiar el valor de una variable con el cursor y repetirlo varias 
veces. 

- Que conviene borrar primero allí donde se va a escribir otra vez. 

- El uso de LOCATE. 

- Introducir líneas nuevas en un programa. 

- Un uso de STRING$ ( ) 

- El uso de RENUM, comienzo, salto. 

- Que lo importante es el orden de las sentencias. 
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EJERCICIOS DE LA SESION 8 


23°.- Renumerar, desde el número 1 , el programa que está en memoria 
al acabar la sesión. 

Listarlo para certificar que la nueva numeración y ejecutarlo para 
comprobar que funciona. 

24°.- A continuación hacer que en vez de imprimirse la salida en la 
línea 20, lo haga en la línea 1 2. 

Una ayuda: - mover el cursor 

- cambiar 20 por 1 2 y RETURN 

Ejecutar con F5. (Cuidado, el RUN debe darse sobre una linea 
"limpia'V 

25°.- Renumerar el programa desde 1 0 y de 1 0 en 1 0. 

Comprobarlo. 

26°.- Cambiar el nombre de JUAN por ELISA y la estatura a 1.72 
Ejecutar. 
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SOLUCIONES A LOS EJERCICIOS DE LA SESION 8 



(4 veces) 


' 3 ? GE) 


(1 1 veces) 





RENUM RETURN 


GD 


RETURN 


26 °-^ C£D 


(9 veces) 


CE) 


(8 veces) 
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SESION 9 


Ya hemos aprendido a modificar un programa en memoria. También, 
a estas alturas, ya sabemos imprimir en í a pantalla un mensaje, con 
constantes y variables, en cualquier punto de la pantalla. 

Hoy vamos a aprender a introducir datos en un programa desde el 
teclado. 



Verás que aparece la palabra AUTO y a continuación el número 10. 
El cursor se queda a continuación de! 1 0, esperando. 

¿Qué espera?. Espera a que le entremos una instrucción en BASIC MSX. 

KEY OFF: CLS (rETURN~) 

Aparece el número 20 para otra instrucción. 

LOCATE 5, 12 (rETURn) 

Ahora la 30.... 


PRINT "Hola Pepe" 

Ya tenemos un programa, pero el MSX-C nos pide otra línea. 

¿Como haremos para salir de esta numeración automática de líneas ? 



Ahora: 
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2T GD 

Como ves, el programa funciona perfectamente. 

( F4 ) (RETURN) 

Vamos a modificar el programa sustituyendo Pepe por una variable 
de cadena. 

C O ) veces J y C o) ( 1 4 veces ^ 

Ahora el cursor está entre HOLA y PEPE. 

Q \ ^ DEl) (5 veces) 
ha desaparecido el nombre. 

& 

/ Jj¡^ (barra espaciadora) (Barra blanca de espacios) 

Como ves hemos introducido, insertado, un espacio en blanco al fina! 
de la palabra HOLA. 

(Q) (una vez) ; N0$ (rETURn) 

Aquí lo que hacemos es decirle al MSX-C que imprima la palabra 
HOLA y el contenido de la variable de cadena NO$. El espacio que 
hemos puesto a continuación de HOLA es para separar la palabra HOLA 
de las que puedan venir a continuación, pues ya sabes que el punto 
y coma (;) hace que las impresiones de cadena salgan juntas. 

( SHIFT ) + ( H0ME ) ( F5 ) 

Observarás que solo • imprime "Hola". Ello es así porqué si miras bien 
el programa verás que en ningún momento hemos cargado la variable 
NO$. En consecuencia el MSX-C no imprime nada a través de N0$. 

r íW LIST ( return ) 


& 25 INPUT "cual es tu nombre " no$ (rETURN 

^GD 

i i El MSX-C te está preguntando cual es tu nombre!! 
-7gr (escribe tu nombre) (rETURn ) 
iiel MSX-C te saluda!! 


§ 



La sentencia INPUT emite un mensaje y queda a la 
espera de que entres algún dato por teclado. 
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Fíjate que la linea 25 de INPUT emite el mensaje que hemos puesto 
y carga la variable no$. Luego, el programa se sigue ejecutando. 

LOCATE ha situado el mensaje del INPUT, el cual, por cierto, como 
el MSX-C nos pide a través de una INPUT que le entremos siempre 
algún dato, siempre termina con una interrogación. (?). Después de 
esta INPUT, la instrucción PRINT se ejecuta en la línea siguiente. 

Vamos a mejorar el funcionamiento del programa. 

7^)7 (~F4~) (RETURN) 

Modifiquemos la sentencia 30 para que el PRINT salga donde salía 
antes. __ 

CS) (2 veces) y C CQ (2 veces) 

C INS~) LOCATE 5,12: (r ETURn) 

Con (jÑsJ) podemos introducir lo que queramos, en el lugar donde 
esté el cursor. (A esto se le ¡lama, INSERTAR) 
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La señal que nos indica que podemos insertar o introducir caracteres, 
es el cursor que se queda pequeño. 

Si nos equivocamos y tenemos que borrar o retroceder, se pierde la 
posibilidad de insertar. En este caso, habría que apretar otra vez 


GD 



La facilidad de insertar es posible solo cuando el cursor 
es como una raya. Para insertar tiene que apretarse la 
teda í IMS j y después teclear lo que queremos 
insertar. / 


Bien. Hemos hecho 


30 LOCATE 5,1 2:PRINT "H0LA";N0$ 


Ahora: 


& GD 


JUAN ( RETURN 


Pues no. No está bien. 

No hemos borrado la ¡mea antes de imprimir. Para borrar, lo hemos 
aprendido en la sesión anterior. ¿Te acuerdas?. 

Para hacerlo... 


GD 


RETURN 


26 LOCATE 5,1 2.PRINT STRING$(31, " ") 
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RETURN 



/ ^0~ J (tu nombre ) 

Muy bien. La sentencia 26 hace que se borre la linea de la pantalla 
para la impresión siguiente y todo queda ahora bien. 

Para que veas que un ordenador hace solo / o que tiene programado, haz: 

^ GD 

no se (RETURN) 

Hagamos un par de mejoras en el programa. Observa que la línea 20 
hace que el INPUT se coloque. Vamos a poner el LOCATE en la misma 
línea de I INPUT. 

;2f^ ( F4 ) ^RETURN) 


(ü ) (4 veces) (j^T) (2 veces) 

Ahora el cursor está entre el n° 25 e INPUT 

( INS ) LOCATE 5,12: 

Ahora la línea 20 sobra pues dos LOCATE 5,12 seguidos no tienen 
sentido. La colocación del INPUT ahora se controla en la sentencia 25. 



Para borrar i a sentencia n° 20 del programa (nos sobra), nos vamos a 
una zona Ubre de pantalla, es decir, ponemos el cursor en una línea 
que no haya nada escrito, y escribimos el número de la sentencia que 
queremos eliminar, en este caso el 20. 

' 3 (home) 20 (return) 

El MSX-C al detectar una línea de programa sin contenido, ¡a borra 
si ya existia. 
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Comprobémoslo: 



Ahora tan solo nos queda poner una numeración más bonita a nuestro 
programa. 





FIN DE LA SESION 9 


¿Que hemos aprendido? 

-AUTO, numera automáticamente las líneas de un nuevo pro- 
grama que vamos a entrar. 

- AUTO comienza con ( F2 ) y termina con (cTRL^ + ^STQp) 

- insertar caracteres para modificar una sentencia. 

- Insertar se hace con ( INS ^ y el cursor se vuelve pequeño. 

-INPUT admite datos desde el teclado y puede emitir una pre- 
gunta orientativa. 

- Sabemos borrar una línea de programa. 
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EJERCICIOS DE LA SESION 9 


27°.- Realiza un programa en el que cada instrucción haga lo siguiente: 
10.- Borra la línea de teclas de función y la pantalla. 

20.- Que nos pida por pantalla un número. 

La variable de este número I a llamaremos nu en el programa. 

La pregunta ha de salir en la columna 5 de la línea 5 de 
la pantalla. 

30.- Borrar la pantalla. 

40.- Imprimir en la columna 0 de la fila 12, el resultado de 
multiplicar por si mismo el número que hemos entrado, con 
un mensaje así: 

"El cuadrado de (aquí el número) es:" (aquí el resultado). 
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SOLUCIONES A LOS EJERCICIOS DE LA SESION 9 


SESiON 10 



NEW 

Vamos avanzando. Pero ten en cuenta que sobre lo que hemos visto 
volveremos con frecuencia pues las sentencias que ya hemos expuesto 

10 

KEY OFF: CLS 

pueden hacer aún más cosas de las que hemos visto. 

20 

LOCATE 5,5: INPUT "NUMERO"; NU 

De vez en cuando volveremos sobre lo anterior para ver algún aspecto 

30 

CLS 

nuevo. 

40 

LOCATE 0,1 2:PRINT "El cuadrado de NU; " es "; NU'NU 

J* 

En esta sesión veremos una sentencia muy importante: GO TO. En 
Inglés significa: IRA.... 

Haciendo 

varias veces y F5 J puedes practicar. 

Como sabes, el programa se ejecuta ordenadamente siguiendo el nú- 
mero de línea del programa. 


i 

Hay algunas sentencias, entre ellas GOTO, que obligan al programa a 
romper este orden y saltar a otra instrucción que no es ¡a siguiente. 


Por ejemplo GOTO 80 hace que el programa, al leer esta instrucción 
vaya directamente a la instrucción número 80, esté donde esté en este 
momento. 




Los programas se ejecutan secuencialmente desde la 

M 


línea de programa de número más pequeño a la de 
número más grande, excepto que alguna línea le obli- 

IL31 


gue a saltar a otra línea lejana. 


i 


Vamos a ver un caso práctico: 



( F2 ) (reTURn) (llamamos a AUTO,/ 


& 


KEY OFF: CLS (rETURn) (Borramos línea de teclas de 

función y la pantalla) 

nu = nu + 1 ( ^RETURínT ) fnu va ¡ e ¡ 0 g Ue va ¡¡ a m ¿ s jj 


LOCATE 1 5,1 2: ? nu ^RETURNJ (Imprime el valor de nu,/ 
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(ir a 20 otra vez y repetir) 



GO TO 20 





(terminar la numeración automá- 
tica de! programa) 





(listar el programa) 


¿Que hará el prc grama?. Veamos cada una de las instrucciones. 

- La primera instrucción borra toda la pantalla. 

- La segunda instrucción suma uno al valor de no y se lo carga al 
propio nu. 

- La tercera imprime nu. 

- La última hace que el programa repita la sentencia número 20 
volverá a sumar uno a nu, volverá a imprimir el nuevo resultado 
y asi sucesivamente. 

Es como un ciclo de operaciones que se repiten. 

Ahora vamos a ejecutar el programa y verás que irá imprimiendo 
números consecutivos a gran velocidad. Cuando quieras parar, aprieta 
la teda STOP. 



¡¡Menuda velocidad!!. Como ves, va imprimiendo repetidamente núme- 
ros consecutivos del 1 hasta que paremos. 



IL32 
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En realidad, cuando se para un programa con ST OP, todo el teclado 
queda anulado y solo funcionan las teclas ^STQp) K ^CTRL^ 

Si Queremos que el programa prosiga 



y el programa prosigue. Tan solo ha hecho una pausa. 



IL33 


Si, por el contrario, queremos "salir" de la ejecución por un tiempo 
más largo, para hacer otras cosas... 



Observa el mensaje que proporciona el MSX-C: 

BREAKIN 

que significa: 

RUPTURA EN LINEA... 


El MSX-C cuando hacemos un BREAK, o sea ( CTRL ) + (STOP 


nos informa de la última instrucción que ha ejecutado correctamente. 


Si hemos parado con CTRL + STOP, podemos hacer ahora cualquier 
otra a condición de no tocar las líneas de programa, si queremos que 
continué donde estaba. 


En estos momentos estamos parados y nos interesa ver el programa, 
por ejemplo: 



Vemos el programa para consultar cualquier cosa. Si queremos conti- 


nuar... 
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CONT ( RETURN 



y como verás el programa continua. 

Vamos a pararlo con "ruptura", "rompiéndolo" temporalmente. 



Ahora vamos a modificar el programa que tenemos. Haremos que a 
"nu" se le vayan sumando de 1 3 en 1 3, en lugar de 1 en 1. Para esto, 
sitúate en la linea 20, con el cursor después del 1 del final (a conti- 
nuación de él) y: 



Hemos modificado el programa y nos hemos ido al origen para... 
& CONT (RETURN) 

El MSX-C responde: CAN'T CONTINUE. Esto quiere decir: "No puedo 
continuar". 



¿Porqué? 

El MSX-C lo hace así porqué se ha modificado el programa y no hay 
seguridad de lo que se estaba ejecutando prosiga sin errores. 

Podríamos continuar forzando al MSX-C a ir a una determinada línea 
del programa, a pesar de que el MSX-C ha dicho que no podía continuar. 

GOTO 20 (RETURN) 

Pero si observas con detenimiento, verás que el programa ha empe- 
zado con la variable nu con valor 0. 



Cada vez que se modifica un programa, todas las varia- 
bles que contenga, se ponen a cero si son numéricas y 
a cadena nula (" 1 si son de cadena. 


Por esto, si "tocamos" un programa mientras estamos en "break", 
después no obedece al CONTINUE. 


Como has visto, GOTO también sirve para "entrar" en un programa por 
la línea que queramos. 

Si has dejado funcionando el programa, debes tener un bonito número 
en la pantalla. 



FIN DE LA SESION 10 


¿Que hemos aprendido? 

- GO TO significa "IRA...." 

- Obliga al control del programa a saltar a otra línea lejana. 

- Con GOTO se pueden hacer programas que tengan ciclos repe- 
titivos. 



equivale a "párate" (Pausa) 



momento" (Ruptura) 


equivale a "párate y sal del programa un 


-CONTINUE es para anular las paradas de ruptura. Para que 
CONTINUE funcione, no se ha debido tocar el programa. 


- Si se modifica el programa, CONTINUE no funciona. 

- GOTO sirve para comenzarla ejecución por la línea que queramos. 
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EJERCICIOS DE LA SESION 10 


SOLUCIONES A LOS EJERCICIOS DE LA SESION 10 


28°.- Haz un programa que ¡lene toda la pantalla de "H". 

28°.- 1 0 KEY OFF: CLS 

29°.- Para la ejecución y modifica el programa para que escriba "0" en 

20 PRINT 

"H";: GOTO 20 

lugar de "H". 

C F5 ) 


30°.- Páralo otra vez. En vez de "0", y en su lugar... 

(7¡r (graph) + ( J ) 

V J 

Como ves. 

GOTO también salta al comienzo de la línea en la 

está. 


Ejecuta. 

29 °-^p 

(ctrl) + (stop) 



( F4 ) (RETURN) 



( 0 ) (2 veces) y ( [^> ) (10 veces) 



o (return) 


& 

( F5 ) 


30V ^ 

(ctrl) +(ST0P) ( F4 ) (RETURN) 



CS\) ^ veces) y ( ’Cy ') (10 veces) 



(graph) p( j ) (return) 


SES80N 11 


El MSX-C tiene un reloj que arranca en el momento de encenderse. 
Este reloj es en realidad un contador que suma uno a una variable 
propia del MSX-C cada 1/50 segundo. 

Esta variable se llama TIME, y puedes hacerla salir a ¡a pantalla. 


SENTENCIAS 

FUNCION 

2 TÍME (RETURN) 

Imprime "TIME" 


Verás que sale un número que expresa cuantas fracciones de 1/50 
segundos hace que conectamos el MSX-C. 

Hazlo. 

?time (return) 

Si queremos ver como va cambiando "TIME": 

'2^ 5 KEY OFF: CLS (rETURn) 



10 LOCATE 15,12 : PRINT TIME 
goto io (return) 


'W GD 

La instrucción número 5 limpia la pantalla. 

La instrucción número 1 0 se sitúa, imprime el valor de "time", vuelve 
a situarse, vuelve a imprimir y así sucesivamente. 
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Podemos hacer que "TIME" arranque o empiece en un 
valor cualquiera. 


Si el programa sigue funcionando, páralo con: 

/ J§T > ( CTRL ) + (stop) 

Esta combinación de tedas, "rompe", cancela, el programa que se esté 
ejecutando. 


Ahora: 


CE) + 


RETURN 


7 TIME = 0 (RETURN) (Remicializamos "time' 
Vs — - — - — ^ con el valor 0). 

^ O ^ (30 veces) C ) 7 (RETURN^ ) 


RUN RETURN 


Como ves, arranca desde cero siempre. 

n^r GE) GE) 

TIME tiene un valor máximo de 65.535. Cuando alcanza este valor, 
vuelve a comenzar desde cero. Compruébalo haciendo: 

7 TIME = 65000 (rETURn) 

& O (31 veces) 10 ( ^RETURn ) 


RUN RETURN 


Como ves, arranca desde 65000 y cuando llega a 65535 y sigue con 0. 
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Si el valor de TIME lo dividimos por 50, estamos 
controlando el tiempo en segundos. 


Si no está parado el programa.... 

/ J^r ) (ctrl) + (stop) 

Veamos cuanto tiempo lleva encendido el MSX-C: 

? TIME/50 (RETURN) 

El número que sale es el tiempo, en segundos, desde la última inicia- 
liza ción de/ TI ME. 

3^ ?TIME/50/60 (rETURn) 

es el tiempo, en minutos, desde que TIME tuvo por última vez el valor 0. 

Vamos a practicar con una nueva instrucción, la instrucción o sentencia 
IF THEN. 

IF...THEN significa "SI. ..ENTONCES" 

NEW (RETURN) 

Esta instrucción "NEW" limpia (borra) todo lo que haya en memoria. 

IF 2*3 = 6 thenPRINT "Cierto" (rETURn) 

Como ves se ha imprimido la palabra "cierto" pues 2*3 es igual a6. 

La instrucción anterior se "leerla" asi por el MSX-C. 

Si 2 por 3 es igual a 6, entonces imprime 
"cierto". 


0 sea que si lo que se expresa después del IF es cierto, entonces se 
ejecuta lo que hay después del THEN. 
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Como ves, si la expresión que hay después del IF no es cierta, no se 
ejecuta lo que hay después del THEN, sino que se realiza la instruc- 
ción siguiente, (la 20). 

Ahora modifica el "8" de la instrucción número 1 0, y pon un "7" para 
que la expresión después de IF sea correcta, y por tanto se ejecute lo 
que está después de THEN. 


3^ GD 


(5 veces) y 



(10 veces) (situarse sobre el 8) 


( 7 ) (return) (return ) (return) 

Ha escrito "cierto" y también "falso", los dos "PRINT" 

¿Que ha pasado? 

Algo importante y sencillo. 

I o .- Por ser cierta la expresión 2 + 5 = 7, ejecuta el print "cierto" 
porqué es lo que está después del THEN. 

2°.- Ahora, como ya ha terminado de ejecutar la instrucción 10, pasa 
a ejecutar la siguiente (20) que es el print "falso". 

Comprobamos que siempre, lo que hay en la línea 20 se imprimirá 
(falso), incluso cuando la operación sea correcta. Para evitar este pro- 
blema, la sentencia IF THEN puede ser más potente. Así: 

IF THEN ELSE 
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Que significa: 

IF THEN ELSE 

SI (esto es cierto) Entonces (haz esto) Sino (haz esto) 

Veamos: 




IF 5 “ 5 = 28 THEN PRINT "Cierto" ELSE PRINT "Falso" 
(RETURN ) 



Como es lógico imprime "falso" pues 5 por 5 son 25. 

Fíjate que como la expresión después de IF no es cierta, no se ejecuta 
lo que hay después de THEN y en cambio si que se ejecuta lo que hay 
después de ELSE. 

Modifiquemos la sentencia haciendo que la expresión 5 ' 5 = 25. 
( O) (4 veces) ( C}) (8 veces) 



¿OK?. Como ves, ahora dice "cierto" o "falso", pero no las dos cosas 
como antes. 

Vamos a ver una aplicación muy bonita de todo esto. 

Vamos a construir un reloj digital que cuente segundos. Las condi- 
ciones iniciales que nos imponemos para ello, son las siguientes: 


- Ha de comenzar en 0 

- Ha de permanecer permanentemente en pantalla. 

- Se usará la variable TIME. 
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Ya sabes que TIME aumenta de 50 en 50 cada segundo. Vamos allá: 


3T GD 


RETURN 


(Hacemos que el MSX-C numere 
las líneas) 


KEYOFF:CLS ( rETURn J (limpiamos la pantalla) 


IF TIME<50 THEN G0 TO 20 (RETURN^ 

(mientras TIME sea menor a 50, es decir, a un segundo 
el programa se quedará en esta línea. Cuando TIME sea 
igual a 50, es decir, que haya pasado un segundo, el 
MSX-C saltará a la línea siguiente) 

LOCATE 1 5, 1 2:PRINT s (rETURn) (imprimirá el valor s) 


S = S + 1 ( ^RETURNj (se suma 1 a S) 

/jpp TIME = 0 ( ^RETURn) (se i nidal iza el TIME a cero) 
/ J^ D GOTO 20 (rETURn) (volvemos a la línea 20) 
© + ( STOP) (terminamos el programa) 

& GD 
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Como ves el programa comienza por 0 pues la primera vez casi seguro 
que TIME es mayor que 50 y va directamente a imprimir S que como 
todavía no tiene valor cargado, es 0. 


Se acumula un 1 en S, ponemos el tiempo a 0 y volvemos a la línea 
20 a esperar que TIME no sea menor que 50. En cuanto 7 TIME es 
igual a 50, la expresión después de IF ya no se cumple y el MSX-C 
prosigue la ejecución en la línea 30. Ahora S = 1 y el MSX-C pondrá 
un 1 en la pantalla. El ciclo se repetiría indefinidamente. 

Puedes pararlo y estudiar lo que tienes en pantalla a fondo. ' 



FIN DE LA SESION 11 
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EJERCICIOS DE LA SESION 11 


SOLUCION A LOS EJERCICIOS DE LA SESION 11 


31°.- Ordinograma (esquema) del programa de! reloj: 


a) Falta la instrucción: 


(runJ 



(limpiar la pantalla) 

(El MSX-C compara el valor 
efe TIME con 50 y decide si va 
a un sitio ú otro según sea 
menor (A "si") o mayor que 
50. (A "no"). 

Posiclonamiento e impresión. 


Que suma un segundo a los que ya hubiera anteriormente. 
b) Falta la Instrucción 


que inicializa el reloj interno. (Pone a cero el reloj) 


Si se sigue el orden de las flechas se comprenderá que este dibujo es 
un reflejo del programa que hay en pantalla. 

Ejercicio: En los dos rectángulos vados falta algo. Se trata de ponerlo 
y explicar lo que es y que hace. 
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SESION 12 


En la presente sesión haremos un repaso de lo más importante que 
hemos visto, pero antes, aprenderemos algo muy importante también. 

Suponte que tenemos una lista de nombres y tallas: 


JUAN . . . 
PEDRO . . . 


1,75 metros. 
1,60 metros. 


LUIS 1,38 metros. 

ARTURO ... 1,81 metros. 

Queremos introducir estos nombres, y estaturas dentro de/ MSX-C 
para hacer algún proceso de datos con ellos. 

Está claro que los datos de entrada (NOMBRES y ESTATURAS) son 
dos grupos distintos. 

Si miramos la lista anterior y pensamos... ¿Cual es el tercer nombre?. 
Enseguida decimos: "Luis". Por el orden en que están escritos, LUIS es 
el tercero, es el nombre número 3. 



En el MSX-C podemos entrar datos sucesivos (diferen- 
tes datos) a un mismo nombre de variable con la condi- 
ción de dar a ese nombre un número de orden, un 
indice. 


Por ejemplo si la variable para guardar el nombre la llamamos N0$ (ya 
sabes que el $ es necesario pues vamos a cargar una cadena o con- 
junto de caracteres alfa-numéricos), está claro que el tercer nombre 


N0$(3) 

Ese "3" indica que N0$(3) es el nombre número 3. (LUIS). 

Ahora haremos un programa que nos permita entrar cuatro nombres. 




ESQUEMA DEL PROGRAMA 


Vamos a codificar (escribir las instrucciones del programa). 


OBJETIVO: Entrar cuatro nombres en la memoria del 

MSX-C 


RECURSOS: (instrucciones que vamos a utilizar para escribir 

el programa) 

- INPUT 
-IF 

-GOTO 

VARIABLES: V, veces que hemos entrado un nombre. 

NO$, variable de los nombres. 

Vamos a hacer un ordinograma (un esquema) de como ha de funcionar 
el programa. 



repetir un trozo de progra- 
ma) 


- Esto significa que aquí em- 
pieza el programa. 

- Aquí preguntamos si ya he- 
mos entrado cuatro nombres 
a! MSX-C 


- Aquí se suma uno cada vez. 

- Aquí entramos los nombres., 
del primero al cuarto, pues 
V va tomando los valores de 
1 a 4. 


Introduce de la manera acostumbrada, el siguiente programa, (acuér- 
date de que puedes utilizar AUTO/ 



NEW 


3 ^ 

10 IF V = 

= 4 THEN END 


20 V = 

V + 1 


30 INPUT "Entra uñ nombre N0$(V) 


40 GOTO 10 

Si has hecho servir 

AUTO, acuérdate para salir de 

& 

(ctrl) 

+ (stop) 

Ahora: 



3r 

(jl) 


& 

JUAN 

(return) 


PEDRO 

(return) 


LUIS 

(return) 


ARTURO 

(return) 


OK 

□ 

Como ves, a causa del buen funcionamiento del programa, al entrar el 
cuarto nombre se para porqué END es una sentencia que indica que el 
programa ha terminado. END significa FIN en inglés. 

Veamos el programa, paso a paso. 
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INSTRUCCION 

[i O] El valor de V en este momento es todavía cero, así que el 
programa ignora THEN... y sigue en la siguiente instrucción 
pues V = 4 no es cierto. 

[20] Ahora V vale 1 

[30] Entramos JUAN en NO$( 1 ) 

[40] Salta (bifurca) a 1 0 

[i 0] Todavía V = 4 no es verdad pues V = 1 

[20] Ahora y = 2 

[30] Entramos el segundo nombre (Pedro) en NO$(2) 

[40] Salta ( bifurca ) a 1 0 

[i 0] Al ser V = 2, no se cumple V = 4 y por tanto se salta a 20. 
[20] V= 3 

[30] Entramos el tercer nombre (Luis) en NO$(3). 

[40] SaltaalO 

[1 0] Salta a 20 pues no se cumple V = 4 
[20] V = 4 

[30] Entramos el cuarto nombre (Arturo) en NO$(4) 

[40] Salta (bifurca) a 1 0. 

[ 10 ] Se ejecuta el END (Fin) pues ahora si, V = 4, es cierto. 

OK 

□ 

Podemos ensayar si es verdad que la memoria del MSX-C contiene 
los cuatro nombres. 

PRINT NO$(1 ) (RETURN ) 

En la pantalla sale Juan 
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PRINT NO$(3) (RETURN 



En la pantalla sale Luis. 
Prueba los otros dos. 


Efectivamente, en la memoria del MSX-C han quedado emparejadas 
las siguientes asociaciones. 

NO$(1 ) = "JUAN" 

N0$(2) = "PEDRO" 

NO$(3) = "LUIS" 

N0$(4) = "ARTURO" 

Hagamos un listado del programa para verificar que está en memoria. 



Modifica la instrucción número 30 [30] para que quede asi: 
30 INPUT "Entra nombre, talla NO$(V),TA(V) 


Como ves, TA no lleva el caracterizador $ pues es una variable numé- 
rica. Cuando respondas al INPUT has de entrar por teclado una cadena 
(el nombre) y un número (la talla), separados por una coma. 

CLEAR (RETURN) (borra los contenidos de las variables) 


RETUR Nj (Comienzo) 


5T 


Introduce los nombres seguidos de la talla (entre el nombre y la talla, 
una coma) tal como figura en la lista. Si lo deseas, puedes inven- 
tarte ambos conceptos. 


Cuando hayas entrado cuatro parejas de nombres y' tallas, puedes... 
PRINT NO$(2); "mide TA(2); " metros" (rETURn) 


Si con ayuda del cursor vas cambiando el número 2 por 1 , 3 ó 4, irán 
saliendo los siguientes datos: 
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JUAN mide 1,75 metros. 
LUIS mide 1,38 metros. 
ARTURO mide 1,81 metros 


Para terminar vamos a modificar ei programa para que la impresión 
de nombres y estaturas se realice automáticamente. 

( F4 ) (RETURN ) 

10 IF V = 4 THEN END 

20 V = V+1 

30 INPUT "Entra nombre, talla"; N0$(V), TA (V) 

40 GOT0 10 

OK 

□ 


Modifiquemos [l0] para que, en vez de END, salte a otra línea que 
comience la impresión. Haz: 



10 IF V = 4 THEN GOTO 50 (rETURn) 
50 V = 0 (RETURN) 


60 IF V = 4 THEN END (rETURNJ 
70 V = V + 1 (RETURN) 

80 PRINT NO$(V); " mide ";TA(V);“ metros" (^RETURn) 


90 GOTO 60 (RETURNj 




Ya sabes que, aunque a partir de ahora no lo indiquemos, al final de 
una línea tienes que dar RETURN. 

Como puedes ver, primero en [50] ponemos el control de contar 
veces a 0. (V=0). Estudia el programa completo. 


FIN DE LA SESION 12 


¿Que hemos aprendido en esta sesión ? 

- Con un mismo nombre, acompañado de un índice, podemos 
mantener en memoria un grupo, o varios grupos, de datos. 

- Que el índice, también llamado casi siempre sub-índice, identifica 
uno entre todos los datos del conjunto de datos parecidos. 

- Que para entradas repetidas de datos hemos de poner un con- 
trol para terminar y ese control lo puede hacer una sentencia IF. 

- Que un organigrama es el esquema de funcionamiento de un 
programa. 

- Que END termina la ejecución de un programa. 

- Que un INPUT puede recoger los datos de más de una variable, 
separados por comas. 

- Que cuando decimos [80] nos estamos refiriendo a la sentencia 
o instrucción de la línea 80 del programa. 

- Que un programa puede tener un grupo de sentencias dedicados 
a la entrada de datos, y que puede tener otro dedicado a la 
impresión de los mismos. 
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EJERCICIOS DE LA SESION 12 


32°.- Haz que una vez introducidos los nombres y los metros de esta- 
tura, el programa imprima los nombres y la estatura en centí- 
metros. 

Por ejemplo: 

JUAN MIDE 175 CENTIMETROS 

33°.- Renumera el programa comenzando en el número 1 000 la pri- 
mera línea y saltando de 500 en 500. 

34°.- Modificar el programa para que, además: 

- limpie la pantalla al empezar. 

- Imprima cada una de las salidas en el mismo sitio después de 
limpiar la pantalla, con una diferencia de dos segundos apro- 
ximadamente. El punto de LOCATE es 7,12 
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8ESS0N 13 


En ¡a sesión anterior hemos visto como realizar varias veces un mismo 
grupo de instrucciones, por ejemplo para introducir datos. Para ello, 
usábamos el GOTO (n° de linea) y el IF para controlar si ya no teníamos 
que repetir. 


Veamos otro ejemplo: 



10 WIDTH 40: KEY OFF: Cl.S (rETU Rn) 

20 IF N >99 THEN END (rETURn) 

30 PRINT USING " # # # # ";N; (rETURn) 
40 N = N + 1 (RETURn) 

50 GOTO 20 (rETURn) 


En la instrucción 10 hemos introducido una. sentencia WIDTH, que en 
inglés significa "ANCHO", Con WIDTH podemos fijar el número de 
caracteres que caben en una línea. El valor más pequeño de WIDTH es 
WIDTH 1 (un carácter por linea) y el más grande es WIDTH 40 (40 
caracteres por linea). 

En la instrucción 30 introducimos el modo o forma USING "####" 
USING significa " utilizando ", en español. 

El símbolo es el símbolo de "número". Por ejemplo: 

"Los pasajeros internacionales diríjanse a la puerta# 3". 

Esta es una frase de un folleto de un aeropuerto que indica que los 
pasajeros internacionales han de pasar por la puerta número 3. 
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# # # #" significa cuatro números, cuatro espacios numéricos. 


PRINT USING "# # 23 (RETURN 


5P 3 PRINT USING "######### 23 (rETURn) 

¿Ves como le reserva más espacios ?. 

El efecto del USING "# # # #" es £7¿ye e/ PRINT cote a/ número a 
imprimir en la derecha de una zona de tantas espacios como símbolos 
de sostenido ( # ) haya. 

20 * CD 

Como ves, hay cuatro posiciones para cada número. 

20 * GD ( return ) 

Ahora modifica la instrucción 30 para que tenga 5( # ), o sea: 


30 PRINT USING "# # # # #";N; 


'JgF* (run) (return 


Como ves, ahora hay cinco espacios para los números y ocho números 
por linea. 

Modifica ahora la instrucción número 10 de manera que WIDTH 40 
sea WIDTH 1 


10 WIDTH 1: KEYOFF: CLS (RETURN 


Una vez modificada, sitúa el cursor en el sitio adecuado y... 


GD 


Ahora es como si estuvieras trabajando con una pantalla de un solo 
carácter por linea. 
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¡Claro!. Como siempre el "HOME" es la primera posición de la primera 
línea. 



10 WIDTH 40: KEYOFF: CLS (RETURN^ ) 

GD 

Hemos vuelto a dar una amplitud de 40 a cada I mea de la pantalla. 


Borra ahora la instrucción [20] tecleando. 


DELETE 20 RETURN 


e introduce ahora una nueva sentencia: 

20 FOR N = 0 TO 99 STEP 1 (RETUR N 
Borra ahora \4Ó\ y [50] 

DELETE 40 : DELETE 50 ( RETURN ) 


y entremos una nueva instrucción [40] 


40NEXTN (RETURN 


Ahora: 
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9 “ GD 

Como ves, hace ¡o mismo. Vamos a verlo. 

( F4 ) (RETURN) 

Las instrucciones [2Ó\ y [4Ó\que tienen respectivamente un FOR... 
TO...STEP y NEXT, definen í o que se llama un BUCLE. 

Ya deciamos en la sesión anterior que un bucle es la repetición de un 
número de instrucciones. 


GRUPO DE INSTRUCCIONES A REPETIR 

FOR (variable) 

variable: Es una variable con funciones de contador que va cambian- 
do de valor cada vez que se ejecuta el bucle. /NEXT le suma 
algo a la variable cada vez que NEXT se ejecuta). 

entero 1 : Valor de partida del contador. 

entero 2: Valor máximo que puede alcanzar. 


En la sesión anterior lográbamos este bucle o repetición de instruccio- 
nes, utilizando las instrucciones IF, GOTO, y un sumador. 

FOR...TO...STEP y NEXT, lo que hacen es sumar, contar y bifurcar, 
automáticamente. 

10 WIDTH40: KEYOFF: CLS 
20 FOR N = 0 TO 99 STEP1 ) 

30 PRINT USING "# # # #";N; / Esto es un bucle 
40 NEXT N ] 




Lo que hay entre un FOR y un NEXT se ejecuta repe- 

f , ) 


tidamente mientras la variable (en este caso U) tenga 

MjV 


un valor inferior o igual al que hay después de TO. 

© 


Cada vez que se ejecuta NEXT, se suma uno a la 

IL40 

variable. (N). 


Las instrucciones FOR...TO y NEXT son muy importantes en BASIC. 
A través de ellas el MSX-C sabe cuantas veces y en que condiciones 
tiene que repetir una parte del programa. 

Fíjate muy bien en su estructura: 

FOH(variable) = (entero) TO (en tero 2) STEP (entero 3) 


entero 3: Cada vez que se ejecuta NEXT, la variable con funciones 
de contador suma a su propio contenido esta cantidad y 
vuelve a FOR para repetir las instrucciones que están entre 
FOR... y NEXT. 

FOR significa "PARA" 

TO significa "HASTA" 

STEP significa "PASO" 




Cuando la variable con funciones de sumador (también 



llamada variable de control) del bucle, llega a un valor 



mayor al máximo indicado en la sentencia FOR (TO...), 

© 


el bucle ya no se ejecuta y el programa salta y sigue en 

IL41 

la siguiente sentencia a! NEXT. 


NEW (RETURN) 


(shift) + ( home) auto (return) 

Introduce ahora el siguiente programa. (Se ha omitido 
(rETURn) pero tu has de tenerlo en cuenta y teclearlo en cada 
linea). 
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10 FOR A = 1 T0 30STEP2 
20 PRINT "ESTE ES EL NUMERO”; A 
30 NEXTA 



CD 

Veamos que hace el programa. 

El PRINT se repite mientras el valor de A es menor de 30. Como se 
puede ver, empieza en 1 y va aumentando de dos en dos, que es el 
valor del paso. (STEP). 



Entre un "FOR" y un "NEXT" puede haber cualquier 
número de instrucciones. 


Vamos a aplicar esta idea para hacer un programa que entre datos de 
nombres y edades de un grupo de personas. 


Introduce el siguiente programa usando "AUTO" y teclea "RETURN" al 
fina! de cada línea: 



10 WIDTH 40 ; KEY OFF : CLS 
20 LOCATE 0,7 : PRINT STRING$(40," * ") 

30 LOCATE 6, 1 0:PR I NT "Entre el número de personas". 
40 LOCATE 0,14: PRINT STRING$(40," * ") 

50 LOCATE 1 7,1 1 : INPUT PE 
60 CLS 

70 LOCATE 0,5:PRINT STRING$(40," * ") 

80 LOCATE 0,1 3:PRINT "NOMBRE 
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90 LOCATE 0,1 5:PRINT "EDAD 

1 00 LOCATE 0,20: PRINT STRING$(40 " * ") 
110 FOR A = 1 TOPE 
1 20 LOCATE 1 3,9: PRINT "PERSONABA 
130 LOCATE 12,13: INPUT NO$(A) 

140 LOCATE 12,15: INPUT ED(A) 

150 LOCATE 1 2,1 3: PRINT SPACE$(67) 

160 LOCATE 12,1 5: PRINT SPACE$(67) 

170 NEXTA 
180 CLS 

190 PRINT "NOMBRES 
AÑOS" 

200 PRINT "= = = = = = = 


210 PRINT 

220 FOR A = 1 TO PE 

230 PRINT N0$(A);:L0CATE 36, CSRUN: PRINT ED(A) 
240 NEXTA 

250 CcJRl) + (STOP") 


El programa contiene muchas de las sentencias que hemos estudiado 
hasta ahora. Es verdaderamente el primer programa completo y com- 
plejo. En él se estudia fundamentalmente: 

- La sentencia LOCATE 

- La sentencia FOR 

- La sentencia INPUT 

- Dos variables con subíndice 

- La sentencia PRINT 

- Otras sentencias y funciones 


121 






SPACE$(67). Es una función que "entrega" al PRINT una cadena de 
67 espacios o blancos. Es una buena función para borrar. 
Ya lo habíamos hecho usando STRING$(67," "). En rea- 
lidad STRING$(67," ") equivale a SPACE$(67). 

El acento se hace con 

(shift ) + ( y.. ) 

De momento no sale nada, pero aparece al teclear la letra siguiente. 
COMENTARIO DEL PROGRAMA. 

1.- FUNCIONAMIENTO 

^ GD 

Verás que sale una pantalla que te pide que introduzcas el número 
de personas que quieres entrar en el proceso de introducir nombres 
y edades. 

& 3 ( RFTURNj 

Enseguida sale otra pantalla que pide el nombre y la edad de la 
primera persona. 



Como verás, ha cambiado el número de persona y se han borrado, 
solamente, los datos anteriores de la pantalla. 
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(tu nombre) ( RETUR N 



(tu edad) ( ^RETURNj 

Repite el ciclo entrando otro nombre y edad y verás que, como al 
comienzo le has dicho al MSX-C que entrarías tres personas, 
automáticamente no pregunta más y lista en pantalla los datos 
introducidos. 


2.- EXPLICACION DE LAS INSTRUCCIONES 



Como ves, el programa es algo largo y se pierden de visión algu- 
nas instrucciones por arriba. Para hacer que el MSX-C liste tan 
solo algunas sentencias (por ejemplo, hasta el número 1 00), se 
le indica asi: 



El listado se para en la 1 00. 

[i 0] Fija el ancho de la pantalla y la borra totalmente. 

[20] Escribe una línea de asteriscos en la línea 7. 

[30] Escribe un mensaje de orientación. 

[40] Escribe una línea de asteriscos en la línea 14 

[50] El cursor se sitúa en el punto (columna 1 7, fila 1 \) y queda 
esperando el dato numérico PE. (número de personas) 

[60] Una vez entrado PE, esta sentencia borra la pantalla. 

[7 0] En la línea 5, otra línea de asteriscos. 
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[80] Se escribe, en ¡a línea 13, un rótulo orientador. 

[90] Se esccribe, en la línea 15, otro rótulo orientador. 

[lOO] Se escribe otra línea, la 20, de asteriscos. 

Q F4 ) 100- (rETUrÑ ) 

Con esto se listan las instrucciones desde la 100 hasta el final. 

[110] Se inicia un bucle que lo controlará el contador A, que como 
se ve, arranca en 1 y termina en el valor de PE. 

O sea, que este bucle se repetirá PE veces. 

Pero... ¿que és PE? 

Es el número de personas. 

O sea, que como PE es el número de personas y A empieza 
en 1, el bucle se repetirá PE veces. (Tres veces, en nuestro 
ejemplo). 


Cuando en una sentencia FOR TO STEP falta 

"STEP", se toma como "STEP" el valor 1. Es decir, el 
incremento de la variable es la unidad. . 


O sea: FOR J = 5 TO 7 equivale a FOR J = 5 TO 7 STEP 1 . 

En ambos casos J toma sucesivamente los valores 5, 6, 7 y 8. 
Al llegar a 8, como 8 >T07, se salta el bucle y va a ejecutar 
la siguiente instrucción a NEXT. 

[i 20] Escribe a que persona nos referiremos en la siguiente entrada 
de datos. 

[l30] Acepta el dato NOMBRE, en la variable NO$ 

[1 40] Acepta el dato EDAD en la variable ED. 
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[1 50] | 
[i 60] ( 
[170] 


Borra estas lineas para preparar la próxima entrada. 

Incrementa en uno el control del bucle y compara con el valor 
del TO...., que en este caso es PE. 


Si el bucle ya se había ejecutado PE veces, o sea, ya habíamos 
entrado la información de todas las personas, se sigue en la 
siguiente instrucción. Si no, vuelve a la instrucción primera 
del bucle, I a [ 120 ] 


[l80] Borra la pantalla. 

[190]) 

■Ponen un título o cabecera orientativos. 

[ 200 ] ! 


[210] Salta una línea. 

[220] Controla un ciclo PE ejecuciones. 

[230] Imprime un nombre y una edad. 

[240] Controla el final del ciclo y, según ya sabemos, repite [230] 
o no. 


CSRUN es una función que "entrega" la linea en la 
que está el cursor. 
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Es decir, CSRUN es una variable donde e/MSX-C va guardando la línea 
donde se halla el cursor en cada momento, y su valor puede ser "to- 
mado" cuando nos interese. 

De forma similar a CSRUN, existe otra función llamada POS (0) en 
la cual el MSX-C va guardando la posición que ocupa en cada ins- 
tante dentro de la línea en que se encuentre. El formato debe ser 
siempre POS(Q). 
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Ejemplo: 

10 LOCATE 12,12,1 

20 A = POS(0): B = CSRUN 

30 LOCATE A,B: PRINT "PEPE" 



Observa como "A" ha recogido la posición del cursor en la línea 
POS(0) y "B" la linea en la que está el cursor. (CSRLIN). 

FIN DE LA SESION 13 


¿Que hemos aprendido ? 

- A configurar el ancho de la pantalla. 

- Un uso de la opción USING. 

- Borrar líneas de programa. 

- Ejecutar un bucle con FOR TO NEXT 

- Imprimir ñ y Ñ 

- Acentuar las vocales. 

- La función SPACE$ 

- La función CSRLIN. 
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EJERCICIOS DE LA SESION 13 


35°.- Haz que en el ejercicio final de la sesión, las dos pantallas de 
introducción de datos salgan emmarcadas por símbolos de = en 
vez de * 

36°.- Borrar el programa anterior y hacer otro que haga lo siguiente: 
Problema: 

Poner en la línea central de la pantalla los primeros 8 múl- 
tiplos de 5, reservando cinco posiciones numéricas a cada 
uno. 

37°.- Modificar este programa para que pregunte el número del cual 
haremos los cinco múltiplos, y que se ejecute una y otra vez, 
dejando durante 8 segundos el resultado en pantalla antes de 
preguntarnos por el número siguiente. 

38°.- Con el anterior programa realiza, sin parar, lo siguiente: 



ESPERA!! ¿puedes explicar que pasa ? 
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SOLUCION A LOS EJERCICIOS DE LA SESION 13 

35°.- Modificar [20] [40] [70] / [lOO] haciendo STRING$ 

(40,%") - STRING$(40, " = ") 






KEY OFF: CLS: WIDTH 40 



5 INPUT "ENTRE EL NUMERO"; NU 

MODIFICAR [30] haciendo 5*N - NU*N 
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50 TIME = 0 
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SESION 14 


Hoy nos sumergiremos en los modos de uso de la sentencia PRINT 
USING. Recuerda que PRINT USING significa algo así como " escribe 
usando .... " 

Frecuentemente desearemos que nuestros datos salgan por pantalla 
con un orden o formato determinado. Por ejemplo: enco/umnados, con 
dos decimales, tal como son, solo en parte, etc. 

Para todo ello existe PRINT USING. 

La sentencia PRINT USING requiere una información de control que 
se le proporciona con una constante de cadena que puede contener 
tan solo unos pocos caracteres de control. Veamos algunos ejemplos. 

(Se prescinde de y (rfTURn) aunque tú ya sabes que 

hay que darlo en cada linea). 

AUTO 

10 WIDTH 40: KEYOFF: CLS 
20 FOR A = 2 TO 40STEP 2 
30 PRINT USING ” # # # #";A; 

40 NEXTA 



Como verás, este programa imprime los veinte primeros números pares, 
reservando a cada uno 4 posiciones de impresión. WIDTH 40 propor- 
ciona 40 posiciones de impresión por linea de pantalla, así que cada 
línea contiene 1 0 números. 

La reserva de 4 posiciones para cada número es consecuencia del 
control que efectúa la cadena "####" (El ; después de las cadenas 
de control, es obligatorio). 




Vamos a verificar la cadena de control haciéndola "###•## Vea- 
mos como modificar el programa. /RETURN en cada linea). 


(shift) 

+ (home) 

CiO 


QD 

3 veces O ) / 8 

( INS ) 

' # 

( 0 ) 

5 veces ( DEL^) 


(limpiar pantalla) 
(listar programa) 

(situarse) 

(incluir un • y un #) 
(borrar el;) 


(return) 


(shift) 


+ (HOME 



(limpiar y ejecutar) 


Como ves, debido a cada número reserva tres enteros 

y dos decimales, y al haber desaparecido el ; después de A, la impre- 
sión de cada número sale en una nueva línea. 


Aclarando: # # # . # # 

# significa posición numérica 

. significa punto decimal. 

Modifica ahora el programa para que su [20] , STEP sea .1. O sea, 
dejaque [20] sea: 

20 FOR A = 2 TO 40 STEP .7 

Una vez modificado, ejecuta el programa con F5 ó RUN y deja que 
termine. 


Verás que termina en 39,80 porqué 39,80 + .7 — 40,5, que es 
mayor que el límite de 40 del FOR. 


También observarás el perfecto encol um nado que se consigue con I a 
cadena de control del PRINT USING. 

A veces desearemos que los números, cuando son grandes, salgan con 
las comas que acostumbran a separar los grupos de miles (cada 3 
cifras). Por ejemplo: 

1579413 desearemos que salga: 1,579,413 

Además, puede que nos interese que, a su lado, salga algún mensaje 
fijo expresando el tipo de unidad que cuantificamos, o cualquier otro 
mensaje. Por ejemplo: 

1,579,413 pesetas 

Vamos a montar una cadena de control de USING que contemple: 

- SEPARADORES DE MILES 

- MENSAJES INCORPORADOS 

Hagamos otro programa, pero antes borremos el anterior. 

NEW 

Comprueba que no hay ningún programa en memoria: 

F4 RETURN 

Hagamos ahora un programa que escriba separadores y mensajes 
anexos: 

10 FOR A = 1 T0 1 500000 STEP 1 2673 
20 PRINT USING "##£###..## pesetas";A 
30 NEXTA 
F5 

El mensaje sale en la posición que lo has escrito. La , antes del . es el 
control del separador de miles. 

Sin embargo, observamos algo extraño. Un símbolo % sale antes del 
número. ¿Que significa ? 
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Un % nos avisa que hemos reservado pocos espacios 
de impresión para el valor que estamos imprimiendo. 


En este caso nos hemos olvidado de reservar espacio para las comas 
separadoras, así que hemos de poner 3 símbolos más de # en la 
cadena de control, pues tal como está, el mayor número que podríamos 
escribir sin problemas sería: 

999,999.00 

7 " 3 ~ aceptable bajo: ######, . # # 

7 3 

Para poder escribir sin problemas 

9,999,999.99 

9~T 

es necesaria la cadena de control 


######## f .## 



Considerando los símbolos (#) (,) y (.) hemos de tener 
en cuenta que cada uno que figure en una cadena de 
control, representa una posición precisa de impresión. 

Si en la cadena de control, cuando se trate de controlar impresiones 
numéricas, substituimos los dos # #de la izquierda, por dos **, conse- 
guiremos que los espacios Ubres de la izquierda de los números me- 
nores, salgan cubiertos por asteriscos. 

Modifica [20] para que sea: 

20 PRINT USING — # # # # # #,.# # pesetas'';A 

Ahora ejecuta. (Cuando veas asteriscos, para con STOP). 
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Como ves, con ello lo que se consigue (sobre todo en listados con im- 
presora), es tener la seguridad de que no se ha dejado ninguna cifra 
por escribir por un fallo de impresión. Asi por ejemplo: 

***1 2,674.00 pesetas 


sabemos positivamente que son doce mil seiscientas setenta y cuatro 
pesetas, y no otra cantidad de la que no se haya imprimido alguna 
cifra por un fallo de la impresora, o porqué no haya tinta. 


. — . 


y 


En 1 a cadena de control, los (**) también reservan y 
cuentan como dos espacios de impresión. 
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Para propósitos de notación científica hay también unos caracteres de 
control que comentaremos. 

Borra el actual programa: 

NEW 

y entra el programa siguiente: 

10 FOR A = 20000 TO 1 STEP -2000 

20 PRINT USING "# # .# # # ;SQR(A) 

30 NEXT 


Ahora, ejecuta este programa. 


I rüiiij 1 


El grupo de control de 4 caracteres ~( )reserva cu a- 

yjs 


tro posiciones para la notación científica obligada 

© 


cuando está presente en una cadena de control. 
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Hasta aquí el control de la impresión de números. 

Vayamos ahora con el control de ¡a impresión de valores alfanuméricos, 
de string o de cadena, que de todas estas maneras se puede llamar. 
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Con el control de Impresión de contenidos de cadena podemos hacer 
tres cosas: 

Escribir el primer carácter de una cadena. 

2. - Escribir los dos primeros caracteres o más que deseemos de una 

cadena. 

3. - Escribir toda la cadena. 

Vayamos por partes. 

1 °. - Escribir el primer carácter. 

Para ello se usa la cadena de control "!" 

Ejemplo: 

7USING "¡"/'ABRACADABRA" 

Como ves se escribe A 
a$ = "JOSE" 
b$ = "MARIA" 

PRINT USING "!";a$;b$ 


y escribe JM 


Una cadena de control puede actuar sobre las diversas 
variables o expresiones que esten presentes en la sen- 
tencia PRINT USING 


"I" ha actuado dos veces , una sobre a$ y otra sobre b$. 

Las únicas precauciones que han de tenerse en cuenta cuando una 
cadena de control actúa sobre varias expresiones son las siguientes: 
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y se escribe ABRA. 

Repetimos: cuando veas el símbolo U significa que has de teclear, con 
la barra espadadora, tantos espacios como símbolos u haya. En la 
pantalla no sale nada escrito, solo se desplaza el cursor. 

Veamos una cosa curiosa: 

PRINT USING "!\uu\";"ABRACADABRA" 

Solo escribe A. 
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Cuando en una "PRINT USING" hay mas controles de 
formato que expresiones a controlar, el control deja de 
actuar al acabarse, ordenadamente, de izquierda a 
derecha, las expresiones a imprimir. 


En este caso,... 

PRINT USING "! \uu\";"ABRAC ADABRA" 



había dos patrones de formato: I y \uu \pero solo había una expresión: 
"ABRACADABRA". En consecuencia, solo actuó ! y solo se imprimió A. 

3.- Escribir toda la expresión de cadena. 

Para ello se utiliza el patrón de control &. 

Ejemplo: 

?USING "&";a$ = "JOSE" 
y escribe: JOSE. Así de sencillo. 


¿Que hemos aprendido ? 

- Que se puede controlar el aspecto de los datos presentados en 
pantalla. 

- Que en los datos numéricos podemos controlar: 

- Con # el número de enteros y decimales del número. 

- Con . la posición del punto decimal. 

- Con , la aparición de comas separadoras de grupo de miles. 

- Con ** el relleno con asteriscos de los espacios de la izquierda 
del número. 

- Con la obligación de representación científica. 

- Incluir mensajes junto con los patrones de contro!. 

- Que en los datos de cadena podemos controlar: 

- Con ! la impresión de solo el primer carácter. 

- Con \\ la impresión de los dos primeros caracteres mas tantos 
como espacios haya entre las barras invertidas. 

- Con & la impresión de toda la cadena. 

- Que los diversos tipos de patrones de control que puedan existir 
en una cadena de control han de corresponderse con el tipo de 
dato que controlan. 

- Que la cadena de control se va usando repetidamente si hay más 
datos a controlar que patrones de control. Hay que tener cuidado 
con el tipo de patrón de control y dato controlado. 


FIN DE LA SESION 14 
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EJERCICIOS DE LA SESION 14 


39°.- Redacta y ejecuta un programa que, con I a ayuda de la función 
SOR (raíz cuadrada), imprima encolumnadas, con cuatro deci- 
males, las ralees cuadradas de los primeros 1 00 números natu- 
rales. 

40°.- Redactar un programa que presente, con el formato que se detalla 
al final, la raíz cúbica de los cinco primeros números, en orden 
descendente. 

FORMATO DE SALIDA: (Ejemplo de uno de los resultados) 
La raíz cúbica de 3 es: 1,4422 

41 °.- Redactar un programa que, a través de una INPUT, demande una 
palabra. Como resultado y en la misma línea, habrá de escribir, 
con 5 espacios entre si: 

- La primera letra de la palabra 

- Las cuatro primeras letras. 

- Toda la palabra. 

Una vez ejecutado ¡o anterior, el programa pedirá una nueva 
entrada, hasta que esta entrada sea la letra F, en cuyo caso 
imprimirá el mensaje ADIOS. 

Ejemplo de línea ejecutada: 

P l ili l...i PEPI i,i i i I . j PEPITO 
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SOLUCIONES A LOS EJERCICIOS DE LA SESION 14 a 

39 °.- 10 FOR A - 1 TO 100 

20 PRINT USING "# # . # # # ;SQR(A) 

30 NEXT 

40 °.- 10 FOR A = 5T0 1 STEP-1 

20 PRINT "la raiz cúbica de";A;: PRINT USING 
A" (1/3) 

30 NEXT 

41 °.- 10 INPUT A$ 

20 IF A$ = "F" THEN PRINT "ADIOS": END 

30 PRINT USING "! UUUUU \uu\ uuuuu &";A$;A$;A$ 

40 GOTO 10 
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SES80W 15 


Profundizaremos hoy sobre aspectos ya mencionados en sesiones ante- 
riores, incorporando de paso algunos conceptos nuevos. 

Uno de estos conceptos es el de comparar cadenas de caracteres 

Es fácil comparar dos números y decidir cual es mayor o si son iguales. 
Por ejemplo: 

IF 3 >4 THEN PRINT "4 es mayor que 3" ELSE PRINT 
"3 es mayor que 4" 

Aquí está claro que 3 >4, luego, como la expresión IF es cierta, la 
sentencia ejecutará la cláusula THEN, no la ELSE. 

4 ES MAYOR QUE 3 

comparemos ahora dos letras... 

IF A >B THEN PRINT"A mayor que B" ELSE PRINT 
"B mayor que A" 

El resultado es: "B mayor que A" 

Es lógico que en este momento te preguntes: ¿Porqué B es mayor que A? 

La razón estriba en que el MSX-C entiende directamente los números 
y ¡as letras como un conjunto de datos o entidades codificadas siempre 
con un valor interno. 

Por ejemplo: 

PRINT ase ("a") 
y se imprime el valor 97 
PRINT ase ("A") 
y se escribe el valor 65. 

En su dia se logró un acuerdo internacional por el cual las letras mayús- 
culas, los números, los símbolos, y otras categorías de cosas, tuvieran 
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un número o valor permanente y fijo. Por ejemplo, la "a" minúscula 
tendrá siempre el valor 97. 

Estos códigos fueron fijados en EEUU, por un comité que estableció el 
American Standard Code for Information Interchange ( Código Ameri- 
cano para el intercambio de información). Por esto a este código se le 
llama código ASCII. 

Pues bien, como sabes, a base de fluctuaciones o cambios de estado 
eléctrico, el MSX-C trabaja sólo con números. 

¿Cómo puede identificar una letra ? 

La solución es fácil. ¡¡Demos un número a todo!! 

|— ► código estandard americano 

PRINT ase ("r") 

I— *• carácter "r" 

e imprime el número 1 1 4 que es el valor numérico que la letra erre 
minúscula tendrá siempre. 

Como ves, "r" es mayor que "a", pues r tiene un código ASCII de 1 1 4 y 
a tiene un código ASCII igual a 97. 

A continuación tienes la tabla de códigos ASCII de los números y letras 
más comunes. 
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g 

103 

h 

104 

¡ 

105 

j 

106 

k 

107 

1 

108 

m 

109 

n 

110 

0 

111 

P 

112 

q 

113 

r 

114 

s 

115 

t 

116 

u 

117 

V 

118 

w 

119 

X 

120 

y 

121 

z 

122 


Hay en total, 256 códigos ASCII. Aquí solo hemos representado 63 có- 
digos de números y letras normales, pero hay otros códigos asignados a 
controles, caracteres, gráficos, alfabetos exóticos, notaciones científicas, 
símbolos especiales, etc. 

Si quieres saber que hace cada uno de los posibles caracteres ASCII, 
hemos de dar, todavía, un paso más. 

Podemos saber que código ASCII corresponde a un determinado carác- 
ter. Por ejemplo: 

PRINT ase ("M") 

y escribe 77. (Compruébalo en la tabla). 


Pero también podemos hacerlo a! revés, ¿como saber a que carácter 
ASCII corresponde el valor 77? 

?chr$ (77) 

Imprime M, como ya sabíamos. 

Si queremos conocer todos los caracteres que están asignados en la 
tabla ASCII, podemos hacer un programa que los represente. 

NOTA IMPORTANTE: Algunos códigos controlan funciones especiales 
tales como borrado de pantalla, brillo intenso, etc... Son los llamados 
caracteres de control y todos tienen código ASCII inferior a 32, así que 
no te extrañes si la pantalla hace cosas raras hasta el código 32. 

10 FOR a = 0 TO 255 

20 LOCATE 20,12 : PRIINT "EL CODIGO ASCII";a; "ES UN 
CARACTER u 

30 IF a< 32 THEN PRINT "DE CONTROL" ELSE PRINT 
CHR$(a) 

40 TIME = 0 

50 IF TIME<50 THEN 50 

60 CLS:NEXT 

Con este programa desfilan todos los caracteres correspondientes a los 
códigos ASCII que están introducidos en el MSX-C 

Ahora conviene que entiendas que en el MSX-C, 7 es mayor que 3, 
no porque aritméticamente sea asi, sino porque intencionadamente y 
de manera coherente con el anterior razonamiento, el código ASCII 
del 1 es mayor que el código ASCII del 3 (55 y 51 respectivamente). 

Lo mismo pasa con las letras: 

- b es mayor que a (98>97) 

- B es mayor que A (66 >55) 

- b es mayor que B (98 >66) 
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En resumen, de mayor a menor (consulta la tabla ASCII) 
minúsculas (Del 97 al 122) 

Mayúsculas (Del 65 al 90) 

Números (Del 48 al 57) 

Ejemplos: 

IF 56>1 23 THEN ? "56 MAYOR QUE 123" ELSE ? 
"123 MAYOR QUE 56" 

Imprime: 1 23 mayor que 56. 


Esta regla solo se invierte cuando algún número, o los dos, son nega- 
tivos. 

Ejemplo: 

IF 56>-1 23 THEN ? "56 ES MAYOR QUE -123" ELSE ? 

"-123 ES MAYOR QUE 56" 

y escribe... 56 es mayor que -123, a pesar que -123 tiene más cifras 
(pero son negativos). 

A continuación vemos un esquema de como se comparan dos números. 
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En comparación de números, siempre es mayor el que 
tenga más caracteres enteros significativos. Siempre se 
compara de izquierda a la derecha. 



Las cadenas de caracteres se comparan carácter a carácter, desde la 
izquierda a la derecha. Es mayor aquella que en un momento dado 
tenga un carácter más, o más alto que la otra cadena. 

Ejemplo: 

? "abcd">"abc" 

Escribe: -1 
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M 


Una operación de relación escribe un - 1 si la relación 
es cierta, y un 0 si es falsa. 
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? "abcD" >''abcd" 

A 


Escribe 0, falsa. Ya que D mayúscula es menor que la d minúscula. 

? , 'uuuabcd">''abcdULJu'' 

Escribe 0, falsa, pues u es menor que a. 

? "ubaldo" >"guillermo" 

Escribe - 1, cierta. Como la primera letra u es mayor que g, ya no se 
compara más. 

? "Guillermo" "guillermo" 

Escribe 0, falsa, porqué G es menor que g. 

Con esto ya sabes lo principal para entender como podemos hacer una 
clasificación de nombres por orden alfabético. 

Después de introducir cinco nombres a través de un INPUT sobre una 
variable subindicada, vamos a clasificarlos de menor a mayor y obten- 
dremos la práctica suficiente como para listar alfabéticamente cualquier 
secuencia de cadena. 

Primero establezcamos lo que hemos de hacer. Programemos la carga 
de los nombres: 

10 FOR A= 1 TO 5 

20 PRINT "ENTRE EL NOMBRE NUMEROLA; 

30 INPUT no$ (A) 

40 NEXTA 


Ahora programemos la clasificación de los nombres, haciendo lo si- 
guiente: 

- Comparamos el primer nombre con los siguientes, intercambiando 
las posiciones si aquel es mayor. Así hasta el final. 

Después hacemos lo mismo con el segundo, el tercero, etc. 
Cuando comparemos el cuarto con el quinto, habremos terminado. 
50 FOR A = 1 TO 4 
60 FOR B = A + 1 TO 5 
70 IF no$(A) >no$(B) THEN SWAP no$(A), no$(B) 

80 NEXTB: NEXTA 
Ahora los imprimiremos. 

90 FOR A = 1 TO 5 
100 PRINT no$ (A) 

110 NEXTA 

Entra cinco nombres y comprueba el funcionamiento del programa. 

Hemos de hacer aquí dos consideraciones importantes. 

-El MSX-C siempre dispone automáticamente de once "casillas" 
para cualquier variable subindicada. 

Por ejemplo, basta emplear en un programa la variable no$(3) 
para qué el MSX-C reserve sitio para los elementos (once) del 
no$(0) al no$(10). 

- Ahora bien, si sin previo aviso queremos usar el elemento no$(23), 
por ejemplo, el MSX-C no imprime nada si es en salida, como 
PRINT no$(23).5/ese/7 una entrada, por ejemplo INPUT no$(23), 
daría error pues no tiene memoria para más allá de no$(1 0). 

¿Como hacer para reservar memoria a una tabla de elementos o 
variable subindicada?. 
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Respuesta: A través de la sentencia DIM. 


¿Que hemos aprendido ? 


Con DIM no$( 1 00) estamos reservando 101 "celdas" de memo- 
ria (de la 0 a la ] 00) para hasta 1 00 nombres. 
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Cuando una variable subindicada ha de tener más de 
once elementos o bien el subíndice ha de ser mayor de 
1 0, es necesario inicializarla (reservar espacio) previa- 
mente con una sentencia DIM. 


En la sentencia DIM, se expresa el máximo valor que puede asumir el 
subíndice. 

Cuando queremos intercambiar el valor o contenido de dos variables se 
puede hacer fácilmente con la sentencia SWAP (intercambiar). 

Ejemplo: 

a$ = "Si hoy es martes" 
b$ = "esto es Bélgica" 

PRINT a$; "u"; b$ 

Escribe: Si hoy es martes esto es Bélgica. 

Ahora hagamos: 

SWAP a$, b$ 

y volvamos a ejecutar la misma PRINT 

PRINT a$; "u"; b$ 

Ahora a$ y b$ han cambiado sus contenidos, pues se escribe: 
esto es Bélgica si hoy es martes 


- Significado del código ASCII 

- Las comparaciones de números y letras. 

- El orden: minúsculas, mayúsculas, números. 

- Comparar palabras y frases 

- Clasificar palabras 

- La función de la sentencia DIM 

- La función de la sentencia SWAP. 



FIN DE LA SESION 15 
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EJERCICIOS DE LA SESION 15 


42°.- Modificar el programa que clasificaba nombres de tal manera que 
no procese tan solo cinco nombres, sino que procese tantos como 
le informemos a través de una INPUT inicial. (Hasta un máximo 
de 20). 

43°.- Ejecuta el programa anterior con frases en vez de nombres. Por 
razones que se explicarán en otra sesión, las frases no han de con- 
tener comas. 

introduce frases como: 

El perro come demasiado. 

Adiós muy buenas 


Cuando ei programa haya ejecutado la impresión, reflexiona sobre 
el resultado y el porqué de un orden tal como el que te saldrá. 
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SOLUCION A LOS EJERCICIOS DE LA SESION 15 

42°.- 2 WIDTH 40 : KEY OFF : CLS 

5 DIM N0$(20) 

7 INPUT "CUANTOS NOMBRES" ; N : CLS 
10 FOR A = 1 T0 N 

20 PRINT "ENTRE EL NOMBRE NUMER0";A; 

30 INPUT N0$(A) 

40 NEXTA 

50 FOR A = 1 TO N -1 
60 FOR B = A + 1 TO N 

70 IF N0$(A) >N0$(B) THEN SWAP N0$(A), NO$(B) 

80 NEXTB: NEXTA 
90 FOR A = 1 TO N 
100 PRINT NO$ (A) 

110 NEXT 

Recuerda las reglas de clasificación de números, minúsculas, mayús- 
culas y palabras. 
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SESION 16 


En muchos programas hay alguna parte que debe repetirse varias veces, 
con lo cual se escriben una vez y se llaman cada vez que se precisan. 

Otras veces, para hacer más clara I a lectura del programa, éste se 
estructura en módulos que hacen una cosa específica dentro del pro- 
grama. 


/ N 


Se llama subrutina al conjunto de sentencias que, den- 

Ir/ y 


tro de un programa, tienen un propósito particular y 



que son llamadas como tales por otras sentencias del 

w 


mismo. 
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El comienzo de una subrutina no precisa ninguna instrucción especial, 
aunque suele ir encabezada por un comentario. 

Sin embargo, es obligatorio que una subrutina termine con la sentencia 
RETURN, que devuelve el control del programa a la siguiente instruc- 
ción a ¡a que la llamó. 



¿Que es lo fundamental de una subrutina?. Que, una 
vez ejecutada, el programa sigue a continuación de 
donde estaba cuando llamó a la subrutina. 
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Ejemplo: 


- 10 SENTENCIA 

- 20 SENTENCIA 

r r 30 HACER SUBRUTINA 3000 
/ y 40 SENTENCIA 
/ -50 SENTENCIA 

\ L 6 0 FIN 

\ 3000 SUBRUTINA 
3001 FIN SUBRUTINA 

como puede comprobarse, la secuencia de ejecución es: 

10 — 20 — 30 — 3000 — 3001 — 40 — 50 — 60 . 


En los programas se pueden poner avisos, comentarios, 
líneas en blanco, cenefas, etc., para ayudar a la lectura 
visual de los mismos. 


Para hacer lo anterior, se usa la sentencia no ejecutable REM. 

esta sentencia es, en realidad, una nota de atención para el lector 
humano del programa. 

El MSX-C no se queja de su presencia, pero la ignora totalmente a la 
hora de ejecutar el programa. 

Parecido en su función a REM, la aparición de un acento solitario ( ' ) 
facilita también con gran versatilidad la oportunidad de escribir un 
comentario. 

Veamos un ejemplo de lo dicho hasta ahora. 
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COMIENZO 


10CLS: WIDTH 40: KEY OFF: INPUT "CUANTOS ELEMEN- 
TOS"; N ' INICIALIZA LOS ELEMENTOS. 

20 DIM TA $ (N)' INICIALIZA LA TABLA CON N ELEMENTOS, 
MAS EL 0. 

30 F0R A = 1 TO N 

40 INPUT TA$(A)'TOMA LOS ELEMENTOS DE UNO EN UNO. 
50 NEXT 

60 GOSUB 1 000 ' LLAMA A LA SUBRUTINA QUE EMPIEZA 
EN 1000. 

70 GOSUB 2000 ' LLAMA A LA SUBRUTINA QUE EMPIEZA 
EN 2000. 

80 ERASE TA$ : G0 TO 10' BORRA LA TABLA Y VUELVE A 
EMPEZAR 


■1000 REM 


SENTENCIA NO EJECUTABLE 


■1010 REM ************************* 
•1020 REM RUTINA PARA LA IMPRESION 
■1030 REM ************************* 


1040 REM 


SENTENCIA NO EJECUTABLE 


• 1050 CLS: LOCATE 0,12: FOR A = 1 TO N: PRINT USING 
"\l_jl_iuuuu\";TA$(A);:NEXT ' IMPRIME LOS ELE- 
MENTOS DE LA TABLA. 

1 060 RETURN ' DEVUELVE EL CONTROL A 70 

2000 ' 

2010 ************************** 

2020' RUTINA PARA EL PANTALLAZO 
2030' ************************** 
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Y ahora: 


-2040' 

- 2050 A = TIME'TOMA LA HORA 

- 2060 IF TIME< A + 200 THEN 2060' ESPERA 4 SEGUNDOS 

— 2070 RETURN ' DEVUELVE EL CONTROL A 80. 

En este programa hay incluso un exceso de comentarios, I o cual tam- 
bién resulta antiestético. 

Un criterio restrictivo y clarificador ha de marcar la pauta en el uso de 
comentario. O sea, pocos y ciaros. 

Aunque los comentarios no sean ejecutables, no debe- 
mos olvidar que su presencia exige un elevado consumo 
de memoria. 

IL59 

En el ejemplo anterior, tenemos dos subrutinas que son llamadas 
desde [60] y [70] Ambas tienen propósitos diferentes. 

1000 Imprime 


2000 Controla el tiempo que está la impresión en pantalla. 

Cada una de ellas tiene una RETURN que devuelve el control una vez 
ejecutada la rutina. 


S X 


¥ 


El programa no ha de pasar por una sentencia RETURN 
si no se ha ejecutado previamente una GOSUB. 
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Esto es lógico porque si no hay un GOSUB, el RETURN no sabría donde 
debe devolver el control. 

Compliquemos un poco las cosas. 

Primero limpia la memoria: 

NEW 


10' EJEMPLO DE SENTENCIA ON ... GO SUB 
20WIDTH 40: KEY OFF: CLS 
30 INPUT "ENTRE EL VALOR DE N " ; N 
40 LOCATE 0,12 

50 ON N GOSUB 1000, 2000, 3000 
60 A = TIME 

70 IF TIME<A + 200 THEN 70 
80 GOTO 20 

1 000 PRINT "EL CONTROL SALTA A LA PRIMERA DIRECCION" 

: RETURN 

2000 PRINT "EL CONTROL SALTA A LA SEGUNDA DIRECCION" 
: RETURN 

3000 PRINT "EL CONTROL SALTA A LA TERCERA DIRECCION" 
: RETURN 

GD 

Si haces 

2 ( RETURN ) 

Verás como 50 hace que se ejecute la subrutina direccionada en 
segundo lugar. Prueba ahora 


1 

3 




En una ON... GOSUB... El control se cede a la dirección 

Cri) 


que figure en el lugar correspondiente al valor de la 



variable que está controlando el salto. 

y 


ON (variable) GOSUB dirección 1, 2, etc. 
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Si el valor de la variable es 0 o es mayor que el número de direcciones 
de salto que hay, la sentencia ON...GOSUB se ignora. 
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También puede usarse ON...GOTO... pero, tal como 
sabemos, ya no será posible volver al punto de partida 
con RETURN. 


Recuerda que la diferencia entre GOSUB y GOTO es precisamente el 
retorno o no del control. GOTO no maneja subrutinas, tan solo salta, 
(bifurca). GOSUB retorna a la siguiente línea después del salto, una 
vez ejecutada la subrutina. Este proceso lo realiza RETURN, por esto 
la GOSUB necesita una RETURN y viceversa. 

Introduce el siguiente programa: 

NEW 

10 WIDTH 40: KEY OFF: CLS 

20 INPUT "ENTRE UN NUMERO ENTRE 1 y 1000"; NU 

30 IF NU >1000 THEN SA = 1 : GOTO 1 1 0 

ELSE IF NU = 1000 THEN SA = 6: GOTO 110 

40 IF NU>500 THEN SA = 2 : GOTO 1 10 

ELSE IF NU = 500 THEN SA - 7 : GO TO 1 10 

50 IF NU >10 THEN SA = 3: GOTO 1 1j0T ELSE IF NU = 10 
THEN SA = 8 : GOTO 110 

60 IF NU>1 THEN SA = 4 : GOTO 110 ELSE IF NU = 1 
THEN SA = 9 : GOTO 110 

70 SA = 5 : GOTO 110 

80 A = TIME 

90 IF TIME< A + 100 THEN 90 


100 CLS: GOTO 20 
110 LOCATE 0,12 

120 ON SA GOTO 130, 140, 150, 160, 170, 180 190 200 
210 . 

130 PRINT "NO MAS GRANDE DE 1000 POR FAVOR" 

140 PRINT NU; "ES MAYOR QUE 500 y MENOR QUE 1000"- 
GOTO 80 

150 PRINT NU; "ES MAYOR QUE 10 Y MENOR QUE 500"- 
GOTO 80 

160 PRINT NU; "ES MAYOR QUE 1 Y MENOR QUE 10- GO 
TO 80 

170 PRINT "NO MENOR DE 1, POR FAVOR" : GOTO 80 
1 80 PRINT NU; "ES IGUAL A 1 000": GOTO 80 
1 90 PRINT NU; "ES IGUAL A 500": GOTO 80 
200 PRINT NU; "ES IGUAL A 1 0": GOTO 80 
210 PRINT NU; "ES IGUALA 1": GOTO 80 
Ejecútalo! 

FIN DE LA SESION 16 
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¿Que hemos aprendido ? 


EJERCICIOS DE LA SESION 16 


- Que es una subrutina. 

- Que el RETURN devuelve el control después de una subrutina. 

- El uso de comentarios en la línea con ( I 

- El uso de líneas de comentario con REM o (') 

- La necesidad de un criterio claro y restrictivo en los coméntanos. 

- Que los comentarios ocupan memoria pero no son ejecutables. 

- Las sentencias ON...GOSUB y ON...GOTO 

- Que la variable de salto en las ON... puede tener cualquier valor. 

- Que el salto solo actúa si el valor de la variable de salto está com- 
prendido entre 1 y tantas direcciones de salto como haya. En el 
caso de cualquier otro valor, se ignora, (en ON GOSUB o en ON 
GOTO). 


44°.- Explica cada paso del programa anterior. 

45°.- En una tienda puedes comprar de 1 a 4 pantalones vaqueros. El 
precio de un pantalón es de 1.200 pías. 

Pero hay la siguiente oferta: 

- Por dos pantalones regalan uno. 

- Si compras 4 hacen un 40% de descuento. 

Realiza un programa que calcule todo ello utilizando además 
0N...G0T0 

El programa debe imprimir 
PANTALONES: X 
PRECIO CADA UNO: XXX 
TOTAL FACTURA: XXXX 
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SOLUCIONES A LOS EJERCICIOS DE LA SESION 16 


44°.- [i O] Establece 40 columnas 

Borra las teclas y la pantalla. 

[ 20 ] Admite cualquier número. 

[30] Si el número es mayor que 1000... THEN... hace SA = 1 
y salta a [lio] 

SI no... 

ELSE mira si es igual a 1 000. Si lo es... 

THEN hace SA = 6 
Si no... 

Sigue en [40] 

[40] Si el número es mayor que 500... 

THEN hace SA = 2 y salta a [i 1 0] 

Si no... 

ELSE mira si es igual a 500 
Si lo es... 

THEN hace SA = 7 y salta a [i 1 0] 

Si no... 

Sigue en [50] 

[50] Si el número es mayor que 1 0... 

THEN... hace SA = 3 y salta a [i 1 0] 

Si no... 

ELSE mira si es igual a 10. Si lo es... 

THEN hace SA = 8 y salta a [i 1 0] 

Si no... 

Sigue en [60] 

[60] Si el número es mayor que 1 ... 

THEN hace SA = 4 y salta a [i 1 0] 

Si no... 

ELSE mira si es igual a 1 . 5/ lo es... 

THEN hace SA = 9 y salta a 110 
Si no, sigue en [70] 
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[70] Si llega aquí es que el número es menor que 1, asi que 
automáticamente hace SA = 5 y salta a [110] 

[80] Toma el tiempo 

[90] Cuando hayan pasado 2 segundos (100/50), sigue en 

[ 100 ] 

[i OO] Borra ¡a pantalla y salta a [20] 

[i 1 0] Aquí se llega desde [30] [40] [50] [60] ó [70] 

Coloca el cursor en la columna 0 de la línea 1 2. 

[i 20] Según el valor de SA (de 1 a 9), tomado en el grupo de 
instrucciones de la [30] a la [70] , salta a una de las 
direcciones que tiene. 

[i 30] Aquí ha saltado porque SA = 1 . Imprime y salta a 80 
[i 40] Aquí ha saltado porque SA = 2. Imprime y salta a 80 
[i 50] Aquí ha saltado porque SA = 3. Imprime y salta a 80 
[i 60] Aquí ha saltado porque SA = 4. Imprime y salta a 80 
[i 70] Aquí ha saltado porque SA = 5. Imprime y salta a 80 
[i 80] Aquí ha saltado porque SA = 6. Imprime y salta a 80 
[i 90] Aquí ha saltado porque SA = 7. Imprime y salta a 80 
[200] Aquí ha saltado porque SA = 8. Imprime y salta a 80 
[210] Aquí ha saltado porque SA = 9. Imprime y salta a 80 

45°.- 10 WIDTH 40 : KEY OFF : CLS 

20 INPUT "CUANTOS PANTALONES" ; P 
30 ON P GOTO 50, 60, 70, 80 
40 GOTO 20 

50 TL = 1200 : GOTO 90 

60 TL = 2400 : P = P + 1 : GO TO 90 
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SESÜOW 17 


70 TL = 2400 : GOTO 90 
80 TL = (1200)* P *0.6 
90 LOCATE 12,12 : PRINT "PANTALONES.... '' ; P 
100 LOCATE 12 : PRINT "PRECIO DE CADA UNO = " ; TL/P 
1 1 0 LOCATE 1 2 : PRINT "TOTAL A PAGAR..."; TL 
120 A - TIME 

130 IFTIME<A + 250 THEN 1 30 ELSE CLS: GOTO 20 


A veces un programa contiene en si mismo datos necesarios para su 
propio y correcto desarrollo. 

Los datos, dentro de un programa, se sitúan en un tipo de sentencias 
no ejecutables llamadas DATA. 

La sentencia REM ó ( ) no eran ejecutables. ¿Te acuerdas?. Eran datos 
orientativos para tí. Lo mismo pasa con DATA, solo que esta sentencia 
tiene datos para que los lea el MSX-C. 

El MSX-C lee los datos de DATA con la sentencia READ 


En el MSX-C hay sentencias que tienen que ir por 
parejas. 

IL63 

Son: 

- FOR y NEXT 

Controlan bucles. A veces también está presente STEP. 

- IF y THEN. 

Controlan bifurcaciones. A veces también está presente ELSE. 

- GOSUB y ON....GOSUB van con RETURN. 

- Una ERASE necesita la presencia de DIM. 

- READ siempre va con DATA. 

A veces también está presente RESTORE. 

Vamos con este último juego: READ, DATA, RESTORE. READ lee 
datos sucesivos en una DATA. 

Ejemplo: 

AUTO 

10 FOR A = 1 TO 7 
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20 READ N, Dl$ 

30 PRINT "El dia N; "semanal es el u Dl$ 

40 NEXT 

50 DATA 1, Lunes, 2, Martes, 3, Miércoles, 4, Jueves, 5, 
Viernes, 6, Sábado, 7, Domingo 

(ctrl) + (stop) 

GD 

Como ves, la READ ha leído parejas de números y cadenas. En la 
DATA las cadenas no tienen que ir entre comillas, a no ser que por sí 
mismas lleven alguna coma. 

[20] READ N, Dl$ quiere decir: Lee los datos, el primero será 
numérico y se llamará N, el segundo será de cadena y se 
llamará Dl$. 

[30] Imprímelos. 


j Cada vez que se lee una data, un índice interno queda 
si Js señalando el siguiente dato que ha de ser leído. De esta 

manera esa utomaticam en te fácil incorporar más da tos. 
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(shift) 

+ (home) 

( F4 ) 

(return) 

(0) 

(3 veces) y ( r^> ) (una vez) 

( DEL ) 

(borra el 0 de [50]; (rETURn) 


Has introducido ¡a línea 5 DATA ahora, para que no esté dos veces 

I a DATA, borra [50] . Encima de OK... 

50 (rETURn) 

Cíi3 ( re turn ) 

Comprueba que solo hay una DATA y que está al comienzo del pro- 
grama. 

Si te gusta más numerar las instrucciones de 1 0 en 1 0. 

(renum ) (return) 

( F4 ) (RETURN) 


GD 





No importa la situación de las datas en un programa. 
Ello es prueba de que no son sentencias ejecutables. 
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De todas maneras.... 


A 


Si hay varias DATAS, estén donde estén, el MSX-C las 

V Y 


va leyendo una a continuación de la otra como una sola 

© 


data. 


1LW 


Si decimos que todas las DATA se leen como una sola... ¿Porqué, a 
veces, es necesario ponerlas como grupos con distinto número de línea ? 

La respuesta estriba en el uso de la nueva sentencia RESTORE, que 
explicaremos a continuación. 
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Veamos como actuaría un RESTORE situado después del primer bloque 
de las 4 primeras lecturas. 


RESTORE hace que el puntero que apuntaba al siguiente dato, vuelva 
a apuntar al primer dato de la primera DATA, esté el puntero donde 
esté. 

Primero veamos como funcionan READ y DATA cuando hay más datos 
que lecturas efectuadas, y además los leemos en dos tandas. 

Introduce el siguiente programa. 

NEW 

10 FOR A = 1 T0 4 
20 READ N, Dl$ 

30 PRINT "El dia N; "semanal es el u Dl$ 

40 NEXT 
50 GOTO 10 

60 DATA 1, Lunes, 2, Martes, 3, Miércoles, 4, Jueves, 5, 
Viernes, 6, Sábado, 7, Domingo. 

GD 

Todo va bien, pero al final hay un error. 

0UT of DATA in 20 
(Fuera de DATA en la línea 20) 

Veamos que hace el programa. 


45 RESTORE (rETURn) 

Lístalo: 

( F4 J (RETURN^ 

Como ves, hay un RESTORE después del NEXT. Según sabemos, es de 
esperar que RESTORE "resitue" el punto de datos al comienzo de la 
DATA, así que cuando vayamos a leer otras cuatro parejas de datos, 
tenga suficientes otra vez. 

GD 

¡i Tiene tantos que nunca para I! 



Observa que cuando imprime el 4 y el miércoles, vuelve a empezar. 

Esto no tiene utilidad práctica pero si educativa. Es evidente que cada 
vez que se ejecuta RESTORE, se "inicializa" de nuevo I a DATA. 



IL67 


RESTORE inicializa TODO el conjunto de DATAS que 
pueda haber en un programa, situando el puntero en el 
primer dato de la primera DATA. 


[10] [20] [30] [40] , la primera vez que son ejecutadas, 
leen e imprimen las cuatro primeras parejas de números y dias, 
pues FOR A = 1 TO 4 hace repetir cuatro veces esta lectura e 
impresión. 

[50] vuelve a empezar el ciclo en la instrucción número 1 0. 

[10] [20] [30] [40] , la segunda vez que son ejecutadas, 
intentan leer una octava pareja, la cual no existe, y el MSX-C lo 
avisa. 


¿Podríamos inicializar una sola DATA, aunque hubiera más? 

Sí. Partiendo de la base de que cada sentencia DATA tiene un nú- 
mero de línea. 

RESTORE (n° de línea) 

Sitúa el puntero al principio de la DATA con ese concreto número 
de línea. 

"Rompe" el programa: 
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NEW (rETURn) 


Introduce el siguiente programa: 

10 WIDTH 40 : KEY OFF : CLS 
20 FOR V = 1 TO 2 
30 FOR A = 1 TO 6 
40 READB 

50 PRINT USING "# # # B; 
60 NEXTA 
70 RESTORE 110 
80 NEXTV 

90 DATA 11, 12, 13, 14 
100 DATA 21, 22, 23, 24 
110 DATA 31, 32, 33, 34 
120 DATA 41, 42, 43, 44 

(CTRL) + (STOP) 
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Cuando desde READ se lee una variable sobre un dato 
que haya en una DATA, el tipo de variable y de dato 
han de coincidir. 


Veamos que pasa cuando no es asi. 
Introduce: 


NEW 

10 READ A$ 

20 PRINT A$ 

30 READ B 
40 PRINT B 
50 DATA PEDRO, JUAN 

GD 


El MSX-C dice: 

"Syntax error ¡n 50" 

"Error de sintaxis en 50) 

Claro. Juan no es numérico y B sí. 


Como ves, después de haber leído 6 datos debido al RESTORE 1 10, piN DE LA SESION 17 

[70] se sitúa en 110 el puntero y debido a [80] ejecuta otras 6 lecturas 
pero no sigue donde estaba (dato 23) sino al comienzo de [110] 

(dato 31). 

Al terminar, el puntero apunta al dato 43 en la línea [i 20] 

Como última precisión, ha de tenerse en cuenta lo siguiente. 
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¿Qué hemos aprendido? 

- Que un programa puede contener, dentro de si mismo, datos. 

- Que esos datos se sitúan en sentencias DATA. 

- Que la sentencia READ lee estos datos. 

- Que cuando lee una variable, su tipo y el del dato han de coin- 
cidir. 

- Que el índice interno, mientras no hay RESTORE, avanza de dato 
en dato leyendo consecutivamente las DATAS. 

- Que no importa la situación de las DATAS en el programa pero 
sí la situación relativa entre ellas. 

- Que todas las DATAS, en principio, se toman como un conjunto 
seguido de datos. 

- Que RESTORE inicializa el puntero sobre el primer dato de todos. 

- Que RESTORE (n° de línea) inicializa el puntero sobre el primer 
dato de la DATA con ese n° de línea. 


EJERCICIOS DE LA SESION 17 

46°.- Introducir dos DATA tales como: 

500 DATA 3, 7, 8, -15 
600 DATA 8, 9, -3, 0 

Hacer un programa que imprima, línea a línea, el producto de los 
primeros, segundos, terceros y cuartos datos de las DATA. 

La salida ha de ser del tipo: 

3 x 8 = 24 

NOTA: Dejar 500 y 600 como número de linea para las DATA, 
pero el programa iniciarlo con [i 0] 

47°.- Pon en una DATA tu nombre, edad, domicilio y número de 
teléfono. Haz un programa que, después de haberla leído escriba: 

NOMBRE XXXX 

EDAD 

DOMICILIO 

TELEFONO 
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SOLUCIONES A LOS EJERCICIOS DE LA SESION 17 

46°.- 10 N = N + 1 

20 IFN = 5THENEND 
30 RESTORE 500 
40 FOR A = 1 TO N 
50 READB 
60 NEXT 
70 RESTORE 600 
80 FOR A = 1 TO N 
90 READC 
100 NEXT 

110 PRINT USING "# # # x # #= # # £";B;C;B*C 
120 GOTO 10 
500 DATA 3, 7, 8, -15 
600 DATA 8, 9, -3, 0 
Comentarios importantes: 

10 Es un contador de las veces que ya se llevan leídas, + 1 . 

[40] [50] [60] 

[80] [90] [100] 

Repiten ¡a lectura y solo guardan la última significativa 
según N + 1 

47°.- 10 WIDTH40: KEYOFF:CLS 
20 READ N0$, ED, DO$, TE$ 

30 PRINT “NOMBRE :u";NO$ 

40 PRINT "EDAD : " ; ED 


50 PRINT “DOMICILIO :l_i";D0$ 

60 PRINT “TELEFONO : lj"; TE$ 

70 DATA GUILLERMO RAMON RAMOS, 36, "CARDENAL 
REIG, u31", 389 u 57 u 67 


178 


179 


SESION 18 


En esta sesión vamos a introducirnos en uno de los aspectos más 
atractivos del MSX-C; El tratamiento de cadenas de caracteres. 

Hemos de dar por supuesto que una cadena de caracteres es un con- 
junto de información que bajo el aspecto de una constante, tiene forma 
de una secuencia entrecomillada de símbolos de todo tipo. 

Es habitual asignar cada cadena de caracteres a una variable de "string" 
o también llamada variable de cadena. 

Ejemplo: 

V$ = "abracadabra" 

STRING significa, desde el inglés, cadena y como cadena podemos 
aceptar también el significado de secuencia. 

Una variable o constante de cadena es una secuencia, cadena, de carac- 
teres. 

La máxima longitud que el MSX-C, de manera estandard, admite en 
una cadena es de 200 caracteres. 

0 sea que una variable de cadena podría ser: 

al $ = "Caliro, poeta por lo simple: [ No me importan las rimas. 
Raras veces hay dos árboles iguales, el uno junto al otro. ] 
Todo se resulve en ser natural y tranquilo " 




El proceso de datos no es tan solo proceso de datos 
numéricos, es proceso de cualquier tipo de información. 
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En inglés, LEFT significa izquierda. En el MSX-C existe una función 
que se llama LEFT porque, operando sobre cadenas, entrega la parte 
izquierda de ellas. 
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Veamos un ejemplo: 

A$ = "Si hoy es martes, esto es Bélgica" 

? LEFT $ (A$,6) 

Y escribe: Si hoy 
Ahora: 

? LEFT $ (A$,7) 
y ahora escribe: Si hoy 

¿Escribe lo mismo?. ¿Que diferencia hay entre el 6 y el 1 que hemos 
variado ? 

Veamos: 

? LEFT $ (A$,8) 

Fíjate , ahora escribe: Si hoy e 


O) 


Los espacios en blanco son caracteres como los demás, 



cuando forman parte de constantes o variables de 

y 


cadena. 


IL70 


Así en nuestro ejemplo anterior, la diferencia entre A$,6 y A$,7 era 
que en A$,7 aunque no se pueda comprobar visua ¡mente, se imprimía 
el espacio entre HOY y ES. 

LEFT$ es una función porque trata el contenido de unos datos y "entre- 
ga" otro conjunto de datos. 

En realidad, toda función hace el tratamiento de unos datos para entre- 
gar otros en "función" de aquellos y del tipo de tratamiento. 

? LEFT$ ("PEPE", 3) 

Se escribe: PEP 

Veamos la estructura de una función LEFT$ 


LEFT $ (CADENA, nj 


número de caracteres a considerar 


Puede ser una variable de cadena o una 
constante de cadena. 


$ siempre estará presente, si lo que "entrega" 
la función es una cadena. 


De la izquierda. 


LEFT$ "extrae" una subcadena de otra cadena. 

? LEFT$ ("PEPE", 8) 

Escribe: PEPE 

Efectivamente, aunque "PEPE" solo tiene 4 caracteres, si escogemos 
los primeros 8 que existan, encontraremos los cuatro que existen y 
cogerá cuatro espacios en blanco más. 

? RIGHT$ (A$,6) 

Ahora nos escribe: é I g i c a 

RIGTH$ entrega o extrae una subcadena de n caracteres, tomados 
desde la derecha, de otra cadena. 

Otro ejemplo: 

? RIGHT$ ( A$, 26) 

Escribe: es martes, esto es Bélgica 
Resumen: 


A$ = 


Si hoy es mantés, esto es Bélgica 
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LEFT $ (A$,1 3) RIGHT $ (A$,1 5) 
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Veamos ahora otra función, la MID$ 

? MID$ (A$,6,1 1 ) 

Escribe: y es martes 

Como puedes comprobar ahora, MID$ ha extraído una subcadena de 
1 1 caracteres desde la posición de carácter número 6, tomada desde 
la derecha. 

Veamos el detalle de la estructura de MID$ 

MID $J CADENA, COMIENZO, EXTENSION) 

L Longitud de la subcade- 
na de resultado. 

Primer carácter de la subcadena, 

según su posición en la cadena 
principal. 

Cadena que puede ser una variable o constante 

de cadena. 

Obligatorio, pues su resultado será una cadena. 

significa "Del medio" 

Otra función sencilla, pero que entrega un valor numérico, no de ca- 
dena, es LEN. 

La función LEN "entrega" un valor numérico que expresa el número de 
caracteres que tiene una cadena, sea esta una variable o constante de 
cadena. 

? LEN ("PEPE") 

Y escribe: 4 


Porque PEPE tiene cuatro caracteres. Ahora... 

? LEN (" u PEPE") 

Escribe: 5 

Porque los espacios en blanco son caracteres. 

? LEN (A$) 

Ahora escribe: 33 

"Si hoy es martes, esto es Bélgica", tiene 33 caracteres. 

Hagamos un divertido programa donde aplicaremos lo aprendido en esta 
sesión. 

AUTO 

10 WIDTH 40: KEY OFF : CLS 

15 A$ = "Si hoy es martes, esto es Bélgica" 

20 FOR A = 1 TO LEN (A$) 

30 LOCATE 0,1 2 : PRINT MID$ (A$,1,A) 

50 B = TIME 

60 IF TIME< B + 5 THEN 60 

70 NEXT 

(ctrl) + (stop) 

GD 

Como ves, el programa escribe la frase tal como lo haría una rápida 
mecanógrafa. Dejo a tu consideración el estudio profundo del programa. 

En los tratamientos de cadena, cuando hay impresión, suele resultar 
molesto la persistente comunicación que efectúa el MSX-C de que ha 
acabado de ejecutar un programa. 
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Nos estamos refiriendo a la operación del mensaje 
OK 

y del cursor. 

Existe un truco para que ambas cosas no aparezcan. No es una solu- 
ción muy elegante y en la próxima sesión atacaremos este problema de 
manera más profesional. De momento, ahí va una solución que no 
siempre será despreciable. 
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¿Como? 

Veamos. En el MSX-C todavía está el último programa que has escrito. 
Lístalo con: 

( F4 ) (rETURn) 

Ahora: 

80 GO TO 80 

GD 

// No aparece el OK ni el cursor !! 

La razón estriba en que el MSX-C está ejecutando indefinidamente 
la instrucción 80. 

(ctrl) + (stop) 

Escribe: Break in 80 
Ahora si que ha parado. 

Vayamos ahora a conocer una función algo más complicada, la fun- 
ción INSTR 


Para evitar la representación del OK y el cursor, pode- 
mos dejar el programa, en un bucle indefinido después 
de acabar su tarea. 



Esta función nos indica la posición en la cual, dentro de una cadena, 
aparece por primera vez una subrutina de la misma. Veamos un ejemplo: 

A$ = "Si hoy es martes, esto es Bélgica" 

? INSTR (A$,"oy") 

Escribe: 5 

Ello es porque la subcade/, a "oy" aparece a partir del carácter 5 de la 
cadena A$ 

? INSTR (A$ "PEPE") 

escribe: 0 

Porque no hay "PEPE" dentro de A$ 

INSTR comienza a comparar la subcadena de búsqueda desde la pri- 
mera posición de la cadena principal. 

A veces, este procedimiento es lento y, en virtud de que sabemos algo 
al respecto, podemos poner otra condición en INSTR. 

¿Cual? 

Pues que busque la subcadena desde una posición más avanzada. 

? INSTR (7,A$,"oy") 

Escribe: 0 

¡i Claro I!. Porque desde la séptima posición ya no hay ninguna sub- 
cadena "oy". 

? INSTR (4,A$,"oy") 

Escribe: 5. i i Aquí está!! 

A continuación veremos dos funciones de uso especial que también 
tienen que ver con cadenas. 

La función VAL devuelve el valor de una cadena compuesta por carac- 
teres numéricos. 

? VAL ("15400" + "7") 
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Escribe: 1 54007 


Veamos la prueba de lo anterior: 





Cuando VAL actúa sobre varias cadenas, tan solo es 
válido el operador de concatenación. 
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? VAL ("-1 5400" -r MID$ ("12345678", 5, 3)) 



Y por tanto, nos escribirá: - 1 5 400 5 6 7 



IL73 


Ha de tenerse en cuenta que lo que entrega VAL es 
ya un valor numérico operable aritméticamente. 


La función inversa de VAL es STR$. Observa que lleva el $ porque 

STR$ "entrega" con formato de cadena, STRING, un número o 
contenido de una variable numérica. 

?STR$ (123.4) 


Como prueba de que entrega una cadena, vamos a efectuar una ope- 
ración de cadena sobre un valor que haya entregado una STR$ 

?MID$(STR$ (123.4), 2,3) 


Escribe... 1 23 

Sin embargo, y fijándonos bien, como hemos pedido que a partir de la 
posición 2 nos escriba 3 números, esperábamos que escribiera: 

23 

¿Porqué nos ha escrito 1 23? 

Pues ha pasado que, aunque nosotros no lo escribamos, a todos los 
números el MSX-C les reserva un espacio por delante para el signo. 
En los números positivos, este espacio está delante, aunque normal- 
mente no nos fijemos en él. 


1 23,4 parece tener 5 caracteres, pero... 

? LEN (STR$ (1 23.4)) 

Y escribe 6, pues tiene en cuenta el espacio en blanco destinado al 
signo +. 


FIN DE LA SESION 18 a 


¿Que hemos aprendido? 

- Una constante de cadena o variable de cadena puede llegar a 
tener una longitud de 200 caracteres como máximo. 

- Las cadenas, o informaciones literales, se pueden procesar por 
medio de funciones especificas. 

- Diversas funciones de tratamiento de cadenas tales como: 

"extraer desde la izquierda" (LEFT$) 

"extraer desde la derecha" (RIGHT$) 

"extraer desde el medio” (MID$) 

"Buscar una cadena" (INSTR) 

"Valorar una cadena de números" (VAL) 

"Encadenar un número" (STR$) 
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- Bloquear la aparición del mensaje OK y del cursor. 

- Que en la longitud de un número "encadenado" hay que tener 
en cuenta el espacio del signo. 
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EJERCICIOS DE LA SESION 18 


48°.- Con ayuda de los códigos ASCII construye una cadena que con- 
tenga consecutivamente todas las letras mayúsculas (La A es el 
CHR$(65) y la Z es el CHR$(90)). 

Imprime, línea por línea, I a cadena resultante, la longitud de la 
misma y la posición que ocupa la letra M. 

49°.- Redacta un programa que compruebe si algún mes del año tiene 
más de ocho letras y más de dos "e" ó "E" en su nombre. 

En el primer caso que esta situación se produzca, la pantalla debe 
borrarse, el nombre del mes en cuestión debe escribirse en la 
columna 16 de la línea' 1 2, y el programa se parará sin imprimir 
"OK" ni el cursor. 

NOTA: Usese DATA para guardar la tabla de los meses. 
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SOLUCIONES A LOS EJERCICIOS DE LA SESION 18° 

NEW 

48°.- 10 WIDTH 40: KEY OFF : CLS 
20 FOR A - 65 TO 90 
30 A$ = A$ + CHR$(A) 

40 NEXT 

50 PRINT A$: PRINT LEN (A$): PRINT ¡NSTR (A$, "M") 

NEW 

49°.- 1 0 WIDTH 40 : KEY OFF : CLS 
20 FOR A - 1 TO 12 
30 READ ME$ 

40 IF LEN (ME$)< — 8 THEN 100 
50 E = 0 

60 FOR B = 1 TO LEN (ME$) 

70 ¡F MID$ (ME$,B,1) = "e" OR MID$ (ME$,B,1) = "E" 
THEN E = E + 1 

80 NEXT B 

90 IF E > 2 THEN CLS : LOCATE 1 6, 1 2 : PRINT ME$ : GOTO 1 1 0 
100 NEXT A 
110 GOTO 110 

120 DATA Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, 
Agosto, Septiembre, Octubre, Noviembre, Diciembre. 
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SES90N 19 


Estamos llegando al final de nuestra primera etapa. 

Las sesiones que faltan están dedicados a aspectos curiosos del MSX-C. 

Algunas cosas que veremos son nuevos funcionamientos de sentencias 
que conocemos. Por ejemplo LOCATE. 

Habíamos visto que 

LOCATE columna, fila 

servía para preparar una impresión en un sitio determinado de la 
pantalla. También sirve para controlar el lugar de una entrada de 
datos. 

Normalmente, durante la ejecución de un programa, el cursor no apa- 
rece. El cursor puede aparecer si ponemos un 1 como tercer parámetro 
de un LOCATE. 


10 LOCATE 12,10,1 
20 GOTO 20 

GD 


r~\ 


Introduciendo un 1 como tercer parámetro de LOCATE, 

u "y 


el cursor será visible durante la ejecución de un progra- 



ma, hasta la aparición de otro LOCATE cuyo tercer 

— — — 


parámetro sea 0. 
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Ejemplo: 

NEW 

10 WIDTH 40: KEY OFF : CLS 
20 LOCATE 12,10,1 
30 FOR B = 1 TO 2 
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40 FOR A = 1 TO 500 
50 NEXTA 
60 LOCATEj 
70 NEXT B 

GD 

Como ves, primero aparece el cursor y después desaparece (debido a 
LOCATE, ,0) durante un tiempo, hasta el fin del programa. 

De paso observa que en un breve tiempo, el MSX-C, ha ejecutado 
1 009 instrucciones. Sería interesante que tú mismo investigaras cuan- 
tas instrucciones se han efectuado. Ahora... 

NEW 

Veamos otra aplicación interesante. 

Ya sabes que los códigos ASCII pueden controlar, con la función CHR$, 
la aparición de caracteres normales, especiales y de control. Por ejemplo: 

LOCATE 20,1 2 : PRINT CHR$ (21 5) 

El carácter ASCII 21 5 es una bandera de cuadros. 

Redacta y ejecuta el siguiente programa: 

10 WIDTH 40: KEY OFF: CLS 
20 LOCATE 40*RND(B),23*RND(45),1 
30 PRINT CHR$(21 5); 

40 GOTO 20 
Ejecútalo. 

Como ves, se colocan en la pantalla una serie de banderas situadas 
al azar. El cursor también aparece allí donde va a ser "depositada" 
una bandera. Para quitar el cursor durante ¡a ejecución, para el progra- 
ma con 
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La pantalla ha quedado absolutamente limpia!! 

Claro. El programa está imprimiendo lo que entramos por teclado, y 
como no estamos tecleando nada, pues nada se ve. 

n 

¡¡La n sube y sube hasta desaparecer!! 

Pulsa lo que desees y como lo desees, verás que divertido. (Si pulsas 
STOP, el programa para, ya lo sabias). 

Y si pulsas CTRL + STOP, el programa "se rompe". 

¿Como parar esta ejecución endiablada y convertir en algo útil la 
función INKEY$? 

Muy sencillo. Hagamos que si lo que se introduce no es nada, el 
programa entre en un buble de espera. 

15 IF K$ = "lj'THEN 10 

GD 

Teclea lo que desees. Verás como aparece por pantalla. 

En este momento tenemos un programa que detecta lo que entramos 
por teclado. A partir de [i 5] podemos usar este conocimiento para 
controlar la ejecución de un programa. 

Por ejemplo, cambia la [20] haciendo: 

20 IF K$ = "F"ORK$ = "f" THEN ? 

"FIN" : END 

25 ? "TODAVIA NO ES EL FIN" 

GD 

Teclea varias teclas y después 

C D 
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INKEY$ no necesita "RETURN". Siempre está compro- 
bando ¡a última teda pulsada. 


Para tener la precaución de que en el teclado no se haya tecleado 
algo inadvertidamente y esa información no controlada pueda alterar 
la ejecución del programa tal como lo deseamos, es conveniente 
"limpiar el teclado", con un pequeño truco de programación. 

Listemos el programa: 

5 IF INKEY$<>" "THEN 5 

Hay que tener en cuenta que cada vez que se ejecuta INKEY$ se va 
borrando de la "memoria del teclado" el carácter más últimamente 
tecleado. 

La sentencia que hemos introducido tiene por objeto borrar, carácter 
a carácter, el teclado, hasta que aquél sea inexistente o sea " 

RENUM 


GD 


Las [10] [20] y [30] forman un clásico conjunto de sentencias de 
control del teclado. A partir de la [30] podemos hacer lo que quera- 
mos en consecuencia con la última teda pulsada. 

Comprueba como se ha "Bloqueado el Teclado". 


(ctrl) 


+ STOP 


Como última sentencia curiosa veremos que hace LINE INPUT. 

Un INPUT ya sabemos que, teniendo I a posibilidad de emitir un men- 
saje, espera la introducción de datos de todo tipo. Tantos como se hayan 
definido en ¡a sentencia. Por ejemplo: 

INPUT''Entre nombre y edad" ; NO$,ed 
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espera una cadena, una coma y un número. Si no le entra así, avisará 
del error. 

Pero, ¿Qué pasa si en el dato que entramos existen comas?. Pues que 
INPUT lo tomará como varias entradas. Por ejemplo: 

INPUT "Domicilio";do$ 

CALLE DEL PEZ, 13 

y el MSX-C responde... 

? EXTRA IGNORED (Ignorada la entrada extra) 

Veamos: 

? do$ 
escribe... 

CALLE DEL PEZ 
OK 

¡Ha ignorado lo que el INPUT (debido a la coma) supone una entrada 
extra. 

¿Como salir de esta trampa ? 

Con UNE INPUT 

UNE INPUT "Domicilio ";do$ 

CALLE DEL PEZ, 13 
? do$ 

Escribe: Calle del pez, 1 3 


LINE INPUT admite TODA la información que le entra 
y la asigna a una UNICA variable de cadena. 


FIN DE LA SESION 19 
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¿Que hemos aprendido? 

- A controlar la presencia del cursor durante la ejecución de un 
programa. 

- El control de la última teda pulsada. 

- A dejar absolutamente limpia la pantalla. 

- A introducir cadenas con comas como una única variable. 
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EJERCICIOS DE LA SESION 19 


50°.- Haz un programa, lo más simple que sepas, que de una manera 
algo diferente a la explicada en esta sesión, deje la pantalla 
absolutamente limpia. 

51°.- Redactar un programa que, admitiendo la introducción de texto 
en la linea 22, vaya situando, por grupos de ocho letras, ese 
texto en la pantalla. Debe iniciarse en la posición (0,0), en líneas 
totalmente llenas y continuas sobre la pantalla. 

52°.- Introducir un texto cualquiera y hacer que el MSX-C lo escriba 
en diagonal desde la posición 0,0. 
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SOLUCION A LOS EJERCICIOS DE LA SESION 19 
NEW 

50°.- 10 CLS 

20 GOTO 20 

NEW 

51°.- 10 WIDTH40: KEYOFF: CLS 
20 GOSUB 50 

30 LOCATE A,B:PRINT TX$;:TX$ = "" 

:A - POS(0) : B = CSRUN 

40 GOTO 20 

50 K$ - INKEY$ : LOCATE POS(0),22 : PRINT K$; 

6© TX$ = TX$ + K$ 

70 IF LEN (TX$) = 8 THEN 100 

80 IFPOS(O) = 39 THEN LOCATE 0,22: PRINT 
STRING$ (40, "u"); 

90 GOTO 50 

100 RETURN 

NEW 

52°.- 10 WIDTH 40: KEYOFF: CLS 

20 LINE INPUT "TEXTO U:";TX$ 

30 LG = LEN (TX$) 

40 CLS 

50 FOR A = 1 TO LG 

60 LOCATE POS(0), CSRUN + 1 : PRINT MID$ (TX$,A,1); 
70 NEXT 
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SESION 20 


En esta última sesión de instrucciones de ia primera etapa de i MSX- 
BASIC, vamos a conocer algunas sentencias y funciones de propósito 
general. 

Por ejemplo: 

? FRE (0) 

Te entrega un número, cuyo valor dependerá de lo ocupado que tengas 
el MSX-C en este momento con datos y programas. 

Este número o valor, representa e indica la cantidad de bytes o carac- 
teres que aún puede admitir el MSX-C. Es la memoria todavía libre. 

Sin embargo: 

? FRE (" ") 

Verás que se escribe un número más pequeño. Es el número de octetos 
libres que todavía quedan para admitir variables de STRING. 

En el MSX-C el área para variables de STRING se asigna con la 
sentencia CLEAR. 

Si no se usa una CLEAR, que como sabes tiene también la propiedad 
de inicializar (poner a cero) todas las variables, el área de memoria 
para cadenas se inicializa con 200 bytes o caracteres. 

Apaga y enciende de nuevo el MSX-C. 

Ahora... 

?FRE(" ") 
y nos escribe... 200. 

En este momento el MSX-C está asignando 200 caracteres de memoria 
para las cadenas. 

Si esto nos parece poco y creemos que vamos a necesitar más área de 
STRING, por ejemplo 2500 caracteres, haremos. 
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CLEAR 2500 

Observemos que ha pasado: 

? FRE (" ") 


que escribe... 2.500. Tal y como esperábamos. 


En muchos programas que tratan variables de cadena 
conviene, el principio de los mismos, usar una senten- 
cia CLEAR asignando área de STRING suficiente. 



Otra función curiosa es RND. Esta sentencia proporciona un número 
decimal aleatorio entre 0 y 1 , que puede servir para numerosos pro- 
gramas. 

10 FOR A = 1 TO 10 
20 PRINT RND (3) 

30 NEXT 

GD 

Como ves, se escriben 1 0 números decimales de 1 4 cifras cada uno. 
Estos números tienen la propiedad de parecerse a los números aleato- 
rios o de azar. 

GD 

Se ha originado la misma secuencia. 

Modifica ahora la instrucción n° [20] del programa para que sea 
RND(7), y... 

GD 

Sale el mismo tipo de secuencia!! 

Y con cualquier número entero, pasaría lo mismo. 
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La función RND de un número positivo entrega siempre 
la misma secuencia de números aleatorios. 


Cambia ahora [20] de forma que RND(-400) 


GD 


¡¡Siempre escribe el mismo número!! 

Observa también que si ejecutas RND(-34), el número varía con rela- 
ción a RND(-400), aunque también se repite. 


A los números positivos les corresponde una secuencia 
de números aleatorios y a los negativos les corresponde 
un solo número a cada uno. 



¿Como hacer pues que un programa genere números siempre distintos 
y "secretos"?. 

Consiste en arrancar con un número negativo sobre el que no tenga- 
mos control y después pedir una secuencia RND con un número po- 
sitivo. 


En el MSX-C hay un número sobre el cual, si no lo 
deseamos, no tenemos control. Ese número es el valor 
de la función TIME. 



10 X = RND (-TIME) 
20 FOR A = 1 TO 10 
30 ? RN D (5) 
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Ahora, ejecuta varias veces con F5. 

Observarás que salen números enteros con total apariencia de alea- 
torios. 
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INT es necesaria, unida a un multiplicador, para extraer 
números enteros aleatorios. 


En esta sesión tan variada, pasamos a explicar la sentencia que se usa 
en el MSX-C para poner comentarios a los programas. Esta es REM, 
que ya la vimos anteriormente y la utilizamos para poner aclaraciones 
y comentarios a nuestros programas. 

A veces es bueno utilizar REM a! principio de una instrucción para 
convertirla momentáneamente en un comentario, y por tanto, evitando 
que se ejecute. 

¿Qué cuando puede ser ello útil ? 

Imagínate que estas probando varios trozos de un programa, y en uno 
de los trozos que ya has comprobado que funciona bien, hay una ins- 
trucción que te llena la pantalla de textos y te hace perder bastante 
tiempo. Podrías ponerle un REM delante y así no se ejecutaría I a ins- 
trucción hasta que le borraras el REM. 


REM es una sentencia no ejecutable, que asigna valor 
de comentario a todo lo que le sigue en su línea de 
programa. 



10 FOR A = 1 TO 10 
20 FOR B = 1 TO 10 

30 PRINT USING = ";A,B,A*B 

40 S = S + A*B 
50 NEXT B : NEXT A 
60 PRINT S 


GD 
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La pantalla se llena de cifras y cifras. 

Supongamos que, de momento, solo nos interesa el resultado de la 
suma final. 

¿ Como evitar la Impresión de las multiplicaciones sin alterar demasiado 
el programa? 

Pues tecleando, insertando, en [30] la palabra REM. 

30 REM PRINT USING "#£tfx #£# = #### ";A,B,A*B 
Ahora ejecutamos de nuevo el programa. 

Cuando ya estamos seguros... ¿Como volver a hacer que salgan las 
multiplicaciones?. 

Pues deleteando en [30] la palabra REM. 

Como final y para quienes de vosotros esteis impuestos en matemáticas, 
hay una función que entrega en formato de cadena, el número binarlo 
de otro expresado en decimal. 

? BIN $ (253) 

Y escribe: 11111101, que es 253 en binario. 


¿Que hemos aprendido? 

- A observar la memoria disponible en el MSX-C 

- A observar la memoria asignada a las cadenas. 

- A asignar más o menos memoria en el área de STRING. 

- A generar números aleatorios. 

- a usar la función TIME para i nidal izar los números aleatorios. 

- A extraer partes enteras con la función INT. 

- La influencia del signo en la función RND. 

- A usar comentarios con ayuda de REM. 

- A inhibir sentencias a través de REM. 

- A expresar un número en binario. 


FIN DE LA SESION 20 


208 


209 


EJERCICIOS DE LA SESION 20 


SOLUCION A LOS EJERCICIOS DE LA SESION 20 


53°.- Redactar una sentencia que decida acabar el programa , si no 
tiene en el momento de ejecutarse espacio para una variable de 
STRING de 450 caracteres. 

54°.- Obtener una lista de 50 números aleatorios, comprendidos entre 
53 y 94, inclusives. 

55°.- Generar 1 0 grupos de 4 letras mayúsculas al azar. 

NOTA: Ver tabla de códigos ASCII. 

56°.- Redactar un programa que presente, en binario, la tabla elemen- 
tal de multiplicar. 


53°.- 

IF FRE (" " ) < 4 5 0 THEN END 

NEW 

54°.- 10 X = RND (-TIME) 

20 FOR A » 1 TO 50 

30 PRINT INT (53 + 42*RND (45)) (cualquier positivo) 
40 NEXT 

NEW 

55°.- 10 X = RND (-TIME) 

20 FOR A = 1 TO 10 
30 FOR B = 1 TO 4 

40 CLAVES = CLAVES + CHR$ (65 + 26*RND(12)) 

50 NEXT B 
60 PRINT CLAVES 
70 CLAVES = "" 

80 NEXT A 

NEW 

56°.- 10 FOR A = 1 TO 9 
20 FOR B = 1 TO 9 

30 PRINT USING = ###### $ ”;VAL 

(BIN$(A)),VAL(BIN$(B)),VAL(BIN$(A*B)) 

40 NEXT B: NEXT A 
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ANEXO I o (Caso práctico) 


En este primer anexo, se te propone el estudio de un programa en el 
cual podremos comprobar el funcionamiento de bastantes de las sen- 
tencias estudiadas. 

PLANTEAMIENTO DEL PROGRAMA 

Es frecuente desear que una información que se considera importante, 
se quiera mantener en secreto, a fin de que no esté al alcance de una 
persona no autorizada. 

Para conseguir ello, conviene ENCRIPTAR esta información. Es decir, 
cifrarla o criptografiarla. Más llanamente: ponerla en clave. De esta 
manera, a partir de una información inicial y aplicando la clave secreta 
que escojamos, obtendremos una información imposible de entender 
si no se dispone de la clave secreta y de la forma o proceso en que 
ésta se encriptó. 

Veamos un ejemplo fácil: 

Tenemos el alfabeto natural, en mayúsculas: 

A B C D E F G H I 

y debajo lo ponemos al revés: (como clave ) 

ZYWVUTSRQ 

Está claro que la palabra BEBÉ del primer alfabeto, se correspondería 
con la palabra UYUY del segundo alfabeto. En este caso la clave seria 
utilizar el alfabeto al revés, y el procedimiento sería emparejar un alfa- 
beto con el otro. 

Cualquier aficionado a la CRIPTOGRAFIA, o un espía principiante des- 
cubriría el sistema de cifrado que hemos empleado. Nosotros vamos a 
realizar un programa de encriptación mucho más complejo. Aunque 
podrías utilizar este programa como un juego, nuestra intención aquí 
es facilitarte un lugar de consulta de todo lo estudiado. 
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FUNCIONAMIENTO DEL PROGRAMA 

- Nuestro programa aceptará un texto compuesto de tetras y números, 
de una longitud máxima de 200 caracteres. 

- La clave para encrlptar nuestro mensaje la podemos introducir a 
nuestro gusto utilizando letras y números, con una longitud de 0 a 62 
caracteres. 

Si ¡o deseamos el propio MSX-C se inventará una clave automá- 
tica. Esto se determina entrando un 1 ó un 2 cuando el MSX-C 
nos lo pregunta. 

- Una vez conseguido el mensaje encriptado tenemos dos opciones: 

- Pedir ¡a "desencriptación", es decir, volver ai mensaje ini- 
cial, para lo cual contestaremos "S" a la pregunta ¿Desea 
comprobar? del programa. 

-ir a encriptar otro mensaje, para lo cual contestaremos 
con N ó RETURN a ¡a misma pregunta. 

- El programa, una vez cargado en memoria, se ejecuta con F5. 

- Para finalizar la utilización del programa, CTRL + STOP. 

OPERATIVA INTERNA DEL PROGRAMA 

Una vez entrada ¡a clave y el texto, lo primero que se realiza es supri- 
mir de la clave que hemos entrado (clave externa), las letras repetidas, 
obteniendo asi una nueva clave que llamamos CLAVE COMPACTADA. 

Ejemplo: 

CLAVE EXTERNA: LA RANA MURIÓ 

CLAVE COMPACTADA: LA RNMUIO 

El espacio en blanco se considera un carácter como otro cualquiera, por 
esto el segundo espacio se suprime, porque está repetido. 

A continuación, a un alfabeto completo que comprende las mayúsculas, 
las minúsculas y los números, el MSX-C le quita o suprime los carac- 


teres que coincidan con la clave compactada, y los añade al abecedario 
resultante, por su parte izquierda. 

Finalmente, al alfabeto resultante, lo partimos por la mitad y traslada- 
mos su parte izquierda a su derecha. 

Con ello hemos logrado una clave de trabajo que depende de la clave 
externa, que solo conoce el utilizador del programa. 

CASO O EJEMPLO PRACTICO 
Alfabeto original: 

01 23456789ABCDEFGHIJKLMNOPQRSTUWXYZabcdefghijkl 
mnopqrstuvwxyz. 

Clave externa: 

Perla del Cantábrico. 

Clave compactada 

Perla dCntbico 

Alfabeto (clave) de encriptación 

Paso I o (letras de la clave compactada, se mueven a la izquierda 
del alfabeto). 

Perla dCntbicoOl 23456789ABDEFGHIJKLMNOQRSTUVWXYZ 
fghjkmpqsuvxyz. 

Paso 2 o (dividirlo e intercambiar sus partes). 

JKLMNOQRSTUVWXYZfghjkmpqsuvwxyzPerla dCntbicoOl 23456 
789ABDEFGHI 

Ya tenemos el alfabeto "desordenado", con una ley que ha impuesto 
la clave externa. 

Si con este alfabeto encriptamos la frase: 

HOY ES MARTES 

quedará 

h6HjbAj4d9BbA 


214 


215 



ORDINOGRAMA DEL PROCESO 


Si no se conoce la clave, aunque se conozca el procedimiento, es 
difícil para un inexperto, entender lo que hay detrás de esta informa- 
ción. 

ANTES DE TECLEAR EL PROGRAMA 

Se han puesto muchos textos y comentarios para que puedas compren- 
der mejor la forma de trabajar de cada subrutina. 

Puedes tomarlo como consulta si tienes dudas en la confección de tus 
futuros programas. 

En el ANEXO-2 0 tienes otros ejercicios variados para que puedas prac- 
ticar y jugar con los mismos. 



¿clave automática? 

CLAVE MANUAL 

ENTRADA DEL TEXTO 

COMPACTACION DE LA 
CLAVE EXTERNA 

CLAVE 

CIFRADO 



¿COMPROBAR? 
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CODIFICACION DEL PROGRAMA 

10 WIDTH 40: KEY OFF: CLS: CLEAR 10000 

20 A$ = " 01 23456789ABCDEFGHIJKLMNOPQRSTUVWX 
YZabcdefghljklmnopqrstuvwxyz" 

30 GOSUB 1.000 'CABECERA 

40 GOSUB 1080'' MENU DE CLAVES 

50 IF OP = 1 THEN GOSUB 1200 ELSE GOSUB 1400 

60 GOSUB 200 'ENTRADA DEL TEXTO 

70 GOSUB 400 ' CLAVE SIN REDUNDANCIA 

80 GOSUB 600 ' CLAVE INTERNA DE MANIOBRA 

90 GOSUB 800 ' CIFRADO DEL TEXTO 

100 GOSUB 1600 

110 Q$ = LEFT$ (RQ$, 1): IF Q$ - "S" OR Q$ = "s" THEN 
GOSUB 1 800 ELSE GOTO 10 

120 GOTO 90 

200 ' *************************** 

210 ’ ENTRADA DEL TEXTO A CIFRAR 

220 *************************** 

230 CLS : PRINT "TEXTO A CIFRAR" : PRINT STRING$ 
(14,'' = "): UNE INPUT TX$ 

240 L = CSRLIN 

250 L.G = LEN(TX$) 

260 RETURN 

400 ’**.**..*.******,,». ****4* 

410 COMPACTACION DE LA CLAVE 

420 ************************* 
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430 CS$ = LEFT$(CE$,1) 

440 B = LEN(CES) 

450 FOR A = 2 TO B 
46,0 D = L.EN(CS$) 

470 Cl$ = MID$(CE$,A,1) 

480' FOR C = 1 TO D 

490 IFCI$ = MID$(CS$,C,1) THEN 520 

500' NEXT C 

510 CS$ - CS$ + Cl$ 

520 NEXT A 
530 RETURN 

600' *************************** 

610' CLAVE INTERNA DE MANIOBRA 

620’ *************************** 

630 B$ = A$ 

640 FOR A = 1 TO LEN (CS$) 

650 PO = INSTR(B$,MID$(CS$AD) 

660 B$ = LEFT$(B$,P0-1 ) + RIGHT$(B$,LEN(B$)-PO) 
670 NEXT A 

680 B$ = CS$ + B$ : B$ = RIGHT$(B$,31 ) + LEFT$ 
(B$,32) 

690 RETURN 
800' ****************** 

810' CIFRADO DEL TEXTO 
820 ' ****************** 
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830 CR$ = "" 

840 FOR A = 1 TO LG 

850 PO = INSTR (A$,MID$(TX$AD) 

860' CR$ = CR$ 4- MID$ ( B$, PO, 1 ) 

87.0 NEXT A 
880 RETURN 

1 000 ******************* 

1010' CABECERA DE MENUS 
1 .020 ******************* 

1030 CLS 

1040 LOCATE 7,0 : PRINT "PROGRAMA DE ENCRIPTOGRA- 
FIADO" 

1050 LOCATE 7,1 : PRINT "= = = = = = = = = = = = 

1060 PRINT: PRINT 
1070 RETURN 

1080 LOCATE 11 : PRINT "opciones de clave' : LOCATE 11: 
PRINT" " 

1090 LOCATE 10, CSRLIN + 4:PRINT"1 - CLAVE MANUAL": 
PRINT:PRINT: LOCATE 10: PRINT "2 - CLAVE AUTOMA- 
TICA” 

1100 IF INKEY$ o THEN 1100 
1 1 10 LOCATE 0,22: PRINT "Pulse 1 o 2"; 

1120 K$ = INKEY$ 

1130 IF K$ o " 1 " AND K$ o "2" THEN 1120 
1140 IF K$ = "1" THEN 0P- 1 ELSE 0P= 2 
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1150 RETURN 

1 200 ******************************* 

1210' INTRODUCCION DE CLAVE MANUAL 

1 220 ************************* ***** 

1230 G0SUB 1000 
1240 CE$ = "" 

1250 LOCATE 14,4 : PRINT “CLAVE MANUAL": PRINT TAB( 1 4) 

1260 LOCATE 0,12: UNE INPUT "CLAVE:";CE$ 

1270 RETURN 

1 400 ********************************** 

1410' COMPOSICION DE CLAVE AUTOMATICA 

1420 ********************************** 

1430 G0SUB 1000 
1440 CE$ = 

1450 LOCATE 12,4 : PRINT "CLAVE AUTOMATICA": PRINT 
TAB(1 2) " " 

1 460 LOCATE 0,6: INPUT "cuantos caracteres tendrá la clave"; 
CH 

1470 IF CH< 1 0R CH>63 THEN 1400 
1480 Y = RND (-TIME) 

1490 FOR A = 1 T0 CH 
1500 X = INT (65 + 58*RND(45)) 

1510 IF X >90 AND X<97 THEN 1500 
1520 CE$ = CE$ + CHR$ (X) 

1530 NEXT A 
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1 540 LOCATE 0, 1 2: PRINT ''Clave:";CE$ 

1 550 LOCATE 0,22 : PRINT "Pulsar cualquier tecla blanca" 
1560 IF INKEY$ <> "" THEN 1560 
1570 K$ = INKEY$ 

1580 IF K$ = ""THEN 1570 
1590 RETURN 

1 600 *•**•■***-'**#•)(■#•*•*•*')(■###*.#.*#&.*#*-##*•*■*■*#*■* 

1610 REM IMPRESION DEL TEXTO CIFRADO 
1 620' *********************************** 

1 630 LOCATE, L + 1 : PRINT "CLAVE EXTERNA": PRINT 

1640 PRINT CE$ 

1650 PRINT: PRINT "CLAVE COMPACTADA" 

1660 PRINT " = == = = = = = = = = = = = = =" 

1670 PRINT CS$ 

1680 PRINT: PRINT "ALFABETO DE ENCRIPTACION" 

1 690 PRINT "= = = = == == == = = = = =" 

1700 PRINT B$ 

1710 PRINT: PRINT "TEXTO ENCRIPTADO" 

1 720 PRINT "= = = = = = = = = = = = = = =" 

1730 PRINT CR$ 

1740 LOCATE 0,23: PRINT "Desea comprobar (S,#S)'';:RQ$ = 
INPUT$(1 ) 
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1750' RETURN 

1800 *************************** 


1810' COMPROBACION DEL CIFRADO 

1 820’ ************************* ** 
1830 GOSUB 1000 
1840 SWAP A$, B$: SWAP CR$, TX$ 
1850 RETURN 
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ANEXO 2 o (Ejercicios prácticos) 


En las páginas siguientes encontrarás una serie de ejercicios de perfec- 
cionamiento. En todos ellos hallarás primero un enunciado y en la siguien- 
te página una solución al mismo. Trata por ti mismo de encontrar una 
solución antes de consultar la que aquí te brindamos. 

En este, nuestro primer contacto contigo, este es el momento de I a 
despedida. 

Esperamos que entre tú y el MSX-C BASIC haya nacido una incipiente 
amistad que, con tu constancia, llegue a ser de gran profundidad. 

¡i Hasta muy pronto, en nuestro segundo volumen I! 


225 


PRACTICAS SVSSX-BASIC - 1 


ENUNCIADO: 

Calcular la longitud de una circunferencia entrando porteclado simple- 
mente el radio, (valor de Pi = 3,1416) 

El alumno entrará el siguiente programa y calculará las longitudes 
para radios de: 1 mt., 7 mts. y 237 mts. 
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PRACTICAS MSX-BASSC - 1 


SOLUCION: 

PROGRAMA 1 
10 INPUT R 

20 L = 2 * 3.141 6 * R 

30 PRINT L 

RESULTADOS CONSEGUIDOS: R = 1, LONGITUD = 6,2832 

R = 7, LONGITUD = 43,9824 
R = 237, LONGITUD = 1489,1184 
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PRACTICAS MSX-BASIC - 2 


ENUNCIADO: 

En las siguientes instrucciones hay errores de sintaxis. Entrarlas al 
MSX-C y correguir los errores. 

10 B = 7 
20 A = 10 
30 A x B = C 
40 5 = D 
50 C/D = R 
60 13 = N 
70 R-N = B 
80 PRINT B 
90 END 
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PRACTICAS fVSSX-BASSC - 2 


SOLUCION: 

PROGRAMA 2 


10 B = 7 

B = 7 

20 A = 10 

A = 10 

30 AxB = C 

C = A * B 

40 5 = D 

D = 5 

50 C/D = R 

R = C/D 

60 13 = N 

N = 13 

70 R - N = B 

B = R - N 

80 PRINTB 

PRINT B 

90 END 

END 


El valor final de "B" r es = 1 
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PRACTICAS ¡V5SX-BASBC - 3 


ENUNCIADO 

Corrección de errores. 

118x2,6 

Queremos ejecutar la operación: C= 

5x7,3 

El resultado correcto debe ser: C — 8,405479 

Indicar porque son erróneos los siguientes planteamientos y escribir 
el programa correcto. 

PROGRAMA 1: 

10 118x2,6/5x7,3 = C 
20 PRINTC 
30 END 

PROGRAMA 2: 

40 C = 118* 2,6/5 * 7,3 
50 PRINTC 
60 END 
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PR ACUCAS SVSSX-BASBC - 3 


SOLUCION: 

PROGRAMA 1: 

10 118x2,6/5x7,3 = C 
20 PRINTC 

30 END (ERROR DE SINTAXIS) 

PROGRAMA 2: 

40 C = 118 * 2.6/5 * 7.3 
50 PRINTC 

60 END (ERROR DE LOGICA) 

PROGRAMA CORRECTO: 

10 C = (118 * 2.6)/ (5 * 7.3) 

20 PRINTC 
30 END 
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PRACTICAS ÍV1SX-BASIC - 4 

ENUNCIADO 

Queremos entrar e imprimir la fecha de hoy. Si el programa a conti- 
nuación no lo permite, modificarlo: 

PROGRAMA: 

10 INPUT F (Teclear "XX/XX/XX") 

20 PRINT F 
30 END 


mmm 




PRACTICAS fVSSX-BASSC - 4 

SOLUCION: 

10 INPUT F$ (Teclear "XX/XX/XX") 

20 PRINT F$ 

30 END 
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PRACTICAS MSX-BASIC - 5 


ENUNCIADO: 

Realizar un programa que calcule el valor medio de cuatro números 
que se introduzcan por teclado. 
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PRACTICAS MSX-BASBC - 5 


PRACTICAS NSSX-BASSC - 6 


SOLUCION: 


ENUNCIADO: 


EJEMPLO: 


100 INPUT A, B, C, D 

110 X = (A + B + C + D) / 4 

120 PRINTX 

130 END 


Realizar un programa que convierta grados Fahrenheit a grados 
Celsius. 

La relación es: C = (5/9) x (F-32) 

Dar como resultados: 

F 21 2 C = 100 
F 183 C = 83,88889 
F 48 C = 8,88889 
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PRACTICAS R/ISX-BASIIC - 6 


SOLUCION: 

100 PRINT "TECLEAR N. DE GRADOS F"; 

110 INPUT F 

120 C = (5/9) * (F-32) 

1 30 PRINT F; "GRADOS F SON" ; C; "GRADOS C" 
140 END 



PRACTICAS SVÜSX-BASIC - 7 


ENUNCIADO: 

Realizar un programa que calcule e imprima la suma y el producto de 
dos números. Una vez calculado ello, e imprimidos ambos valores, el 
programa dejará un espacio en blanco y se posicionará automática- 
mente para entrar una nueva pareja de valores. 
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PRACTICAS MSX-BASflC - 7 


PRACTICAS SV1SX-BAS8C - 8 


SOLUCION: 


ENUNCIADO: 


100 PRINT "ENTRAR A"; 

110 INPUTA 

120 PRINT "ENTRAR B"; 

130 INPUTB 

140 PRINT "SUMA DE A+B ES"; A + B 

1 50 PRINT "PRODUCTO DE AxB ES"; (A * B) 

160 PRINT 

170 PRINT 

180 GOTO 100 

190 END 


Realizar un programa que calcule e imprima todos los números pares 
comprendidos entre el 1 el 100, ambos inclusive. 
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PRACTICAS SV1SX-BAS1C - 8 


PRACTICAS fVSSX-BASIC - 9 


SOLUCION: 


ENUNCIADO: 


10 X = 2 
20 PRINTX 
30 PRiNT 
40 X = X + 2 
50 IFX < 101 THEN20 
60 END 


Utilización de "Read" y "Data". 

Imaginemos que tenemos una serie de números en la sentencia "DATA", 
los cuales queremos promediar. No sabemos anticipadamente los 
números que hay, pero el último será siempre el 9999, el cual no 
debe tomarse en cuenta para el promedio. 

El programa siguiente resuelve este problema, pero contiene errores en 
las líneas 100, 110, 160 y 170. Estudiar la lógica del programa y 
modificar líneas indicadas. 


PROGRAMA: 

100 S = 1 
1 10 N = 1 
120 READ X 

130 IFX = 9999 THEN 170 
1 40 S = S + X 
1 50 N = N + 1 1 

160 GOTO 100 
170 A = S*N 
180 PRINT A 

190 DATA 4, 2, 3, 6, 5, 9999 
200 END 


PRACTICAS MSX-BASIC - 9 


SOLUCION 

PROGRAMA: CORRECCION: 

100S = 1 
110 N = 1 
120READX 

130IFX = 9999 THEN 170 
140 S = S + X 
150 N = N + 1 
160 GOTO 100 
170 A = S * N 
180 PRINTA 

190 DATA 4, 2, 3, 6, 5,9999 
200 END 


SOLUCION = 4 


1 00 S = 0 
1 10 N = 0 


160 GOTO 120 
170 A = S/N 
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PRACTICAS SVISX-BASSC - 10 
SENTENCIAS FOR y NEXT 
ENUNCIADO: 

De parecida forma a otro ejercicio anterior, queremos calcular el valor 
medio (promedio) de una serie de números que tecleemos al sistema. 

El programa preguntará: 

¿Cuantos números se teclearán? 

Luego permitirá la entrada de los números, uno a uno. 
Finalmente se calculará el valor medio y se imprimirá. 
Utilizar las sentencias "FOR y "NEXT" 
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PRACTICAS MSX-BAS1C - 10 


SOLUCION: 


100 PRINT "CUANTOS NUMEROS SE TECLEARAN?’"; 
110 INPUTN 

1 20 PRINT "ENTRE LOS NUMEROS, UNO A UNO" 

130 S = 0 
140 FOR I = 1 TON 
150 INPUTX 
160 S = S + X 
170 NEXTI 
180 A = S/N 

190 PRINT "EL VALOR MEDIO ES"; A : GOTO 100 


í 
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PRACTiCAS fVISX-B ASOC - 11 


ENUNCIADO: 

Vamos a realizar un programa que permita la entrada de una cadena 
de caracteres y la impima en orden inverso al entrado. 
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PRACTICAS ÍVíSX-BASfiC - 11 

SOLUCION: 

100 INPUT A$ 

110 FOR X = LEN (A$) TO 1 STEP-1 
120 PRINT MID$ (A$, X, 1 ); 

130 NEXTX 

140 PRINT: GOTO 100 
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PRACTICAS MSX-BASIC - 12 


ENUNCIADO: 

Si A$ = "Que dia viene Laura", escribir una función que extraiga 
"Día viene". 
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PRACTICAS IVSSX- BASIC - 12 


SOLUCION: 

100 A$ = "QUE DIA VIENE LAURA' 
110 B$ = MID$(A$,5,9) 

120 PRINT B$ 


i 
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EíMUIMCIADO: 


¿Que saldrá impreso si ejecutamos el siguiente programa? 


100 FOR N = 65 TO 80 
110 FOR M = 65 TO N 
120 PRINT CHR$(M); 
130 NEXTM 
140 PRINT 
150 NEXTN 


160 END 
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PRACTICAS ¡VüSX-BASEC - 13 

SOLUCION: 

A 

AB 

ABC 

ABCD P 
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PRACTICAS N!SX-BASfC - 14 


ENUNCIADO: 

¿Que saldrá impreso si ejecutamos el siguiente programa? 
(Piénsalo y adivínalo antes de hacerlo) 


100 A = 1 
1 1 0 GOSUB 200 
120 A = A + 4 
130 GOSUB 200 
140 A = A- 2 
150 GOSUB 200 
160 END 

200 REM SUBRUTINA 
210IFA < 2THEN250 
220 IF A = 3THEN 270 
230 PRINT "ROJO" 

240 GOTO 280 
250 PRINT "BLANCO" 
260 GOTO 280 
270 PRINT "AZUL" 

280 RETURN 
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PRACTICAS IViSX-BASEC - 14 

SOLUCION: 

BLANCO 

ROJO 

AZUL 
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INTRODUCCION A LA IMPRESORA PLOTTEB 
EN COLORES, SONY PRN-C41 
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A - INTR0DUCCSOSU 


La acelerada evolución de la microlnformática en los últimos cinco 
años, nos ha permitido ser espectadores de la masiflcación en el uso 
de productos, que poco tiempo atrás estaba reservado a un porcentaje 
relativamente pequeño de especialistas en el tema informático. 

El continuo abaratamiento en la producción de componentes electró- 
nicos, nos permite poner a su alcance productos como el HIT BIT de 
SONY que, dentro de la llamada “gama de computadores domésticos", 
ofrecen posibilidades de proceso que exceden en mucho el entorno 
familiar, aportando soluciones al mercado profesional e incluso empre- 
sarial. 

En los capítulos anteriores se han transmitido los conocimientos básicos 
del lenguaje BASIC- MSX para Iniciarle en la utilización rentable de 
su HIT BIT. 

SONY ha sido consciente de que la Inquietud de nuevos conocimientos 
por parte del alumno que ha llegado al final del presente libro, le lleva- 
rán a querer disponer de una serie de elementos adicionales que le 
permitan: 

- Almacenar programas y datos a manejar por los mismos. 

- Obtener listados impresos tanto de programas como de resultados 

- Manejar el mundo de los gráficos y dibujos en general. 

- Enriquecer los resultados anteriores con diferentes colores de 
representación. 

- Etc. 

Para todo ello SONY pone a disposición de los usuarios de su HIT BIT, 
una amplia gama de periféricos conectables al mismo. De entre ellos, 
y por las características diferenciales frente a la oferta actual del mer- 
cado, dedicamos estas páginas a mostrarle algunas de las caracterís- 
ticas de la impresora plotter SONY PRN-C41 . 
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B.- PRN-C41 (Características fundamentales) 

1. - OBJETIVO 

La PR N - C4 1 permite ser utilizado como una impresora convencional 
del alfabeto arábigo o como un instrumento de ploterización, pudien- 
do mezclar ambas técnicas de impresión y dibujo en cualquier 
punto del impreso, sin ningún paso o transición intermedios. 

Si bien ambas funciones están disponibles en otros periféricos del 
mercado, el reducido precio de la PRN-C41 y su conectaba idad al 
HIT BIT de SONY justifican el éxito de ventas obtenido. 

2. - ESPECIFICACIONES 

Conjuntamente con I a impresora - plotter se suministra al comprador 
un manual en castellano con información más exhaustiva del pro- 
ducto. 

Destacamos aquí solo algunas de las especificaciones principales. 


FUNCIONES DE IMPRESION 

COLORES 

: CUATRO (NEGRO, AZUL, VERDE y ROJO) 

Sistema 

GIRATORIO, CON CUATRO BOLIGRAFOS 

Tipos de caracteres 

252 

Tamaños de carácter: HASTA 16 DISTINTOS 

Caracteres por línea 

EN PAPEL A4, 160 DE TAMAÑO MINIMO 

Velocidad 

MAXIMA DE 1 0 CARACTERES/SEGUNDO 


Velocidad de impresión gráfica : X, Y: 57 mm/seg. 

: dirección de 45°: 81 mm/seg. 

Area de impresión gráfica: 


^^^Tamaño del 
^^\papel 

lOOmm 

1 1 4 mm 

A5 

B5 

A4 

x-dirección 

410 

480 

650 

820 

960 


(82) 

(96) 

(130) 

(164) 

(192) 

+ y -dirección 

30 

-- 

30 

30 

30 


(6) 


(6) 

(6) 

(6) 

-y-dirección 

601 

- 

919 

1149 

1354 


(120,2) 


(183,8) 

(229,8) 

(270,8) 


Unidad: paso (entre paréntesis: mm) 


TIPO DE PAPEL 


Cuartillas sueltas: ANCHURA 100 a 216 mm. 

TAMAÑO MAXIMO: DIN A4 

Rollo de papel continuo: SE SUMINISTRA COMO ACCESORIO 
ESTANDARD. 

DIAMETRO EXTERIOR: < 70 mm. 
DIAMETRO INTERIOR: < 12mm. 
ANCHURA: 114mm. 
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3.- FUNCIONES POR TECLA MANUAL 

Una serie de acciones y funciones están al alcance del usuario 
mediante la depresión de las teclas incorporadas a la PRN-C41 . Las 
más relevantes son: 

CHANGE COLOR (Cambio de color) 

Gira el portabolígrafos al color elegido. 



Produce el avance del papel. 



Produce el retroceso del papel 

RESET (Restaurar) 

Repone el impresor-trazador cuando se haya interrumpido 
la impresión. 

CHANGE COLOR + /\ 

Se imprimen automáticamente los patrones siguientes: 

□ □ □ □ 

(negro) (azul) (verde) (rojo) 

CHANGE COLOR + ' 

Se imprimen automáticamente todos los caracteres. Cada 
16 caracteres, cambia automáticamente el color de la 
impresión. 


c.- utilización basica 

1.. UTILIZACION BASICA 

Se utiliza el comando LLIST con funciones similares en la impresora 
a las del comando LIST en pantalla. 

Para imprimir caracteres de programas del BASIC-MSX se emplea 
el comando LPRINT, con funciones similares en el impresor a las 
del comando PRINT en pantalla. 

2.- UTILIZACION AVANZADA 

MODO DE TEXTO 

En este modo de texto se utiliza el mandato LLIST del BASIC-MSX para 
imprimir listas de programas del BASIC-MSX, y el mandato LPRINT 
para imprimir caracteres. 

En este modo, la impresora plotter podrá controlarse enviándole códigos 
desde el ordenador. 

A continuación se ofrecen los códigos y sus funciones. 


CODIGOS 


NOMBRE 

CODIGO 

FUNCIONES 

Retorno del 

carro 

ODH 

Cuando el ínter ruptor Ü\P 4 de la parte pos- 
terior de la impresora esté en 

ON: la posición del bolígrafo se moverá 
hasta el comienzo de la línea siguiente 
OFF :1a posición del bolígrafo se moverá 
hasta el comienzo de la linea. 

Avance de línea 

OAH 

Avanza una linea 

Retroceso 

08H 

La posición del bolígrafo retrocede el espa- 
cio de carácter. (Cuando el bolígrafo se en- 
cuentre al comienzo de la linea, este código 
se ignorará). 
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NOMBRE 

CODIGO 

FUNCIONES 

Retroceso de 
línea 

OBH 

Hace retroceder el papel hasta la linea an- 
terior. 

Modo de 
gráficos 

1 BH + 

Establece el impresor/trazador en el modo 
de gráficos. 

Establecimiento 
de escala 

12H + 
"0"-" 15" 

Establece el tamaño de los caracteres im- 
presos. "O" indica el tamaño más pequeño. 

Establecimiento 
de color 

1 BH + "C" 

+ "O” -"3" 

Establece el color del bolígrafo 

0: negro 1: azul 2: verde 3: rojo 

Tope de 
formulario 

OCH 

Avanza el papel hasta una posición situada 
a 297 mm. de la posición de comienzo de 
la impresión. 


MODO DE GRAFICOS 

Enviando mandatos específicos, se pueden imprimir gráficos, cambiar 
los colores, imprimir caracteres, etc. 


MANDATOS 


NOMBRE 

MANDATO 

FUNCIONES 

EJEMPLO 

Inicialización 

1 

Establece ¡a posición ac- 
tual del bolígrafo como 
origen (intersección de los 
ejes x e y). 


Origen 

H 

Mueve el bolígrafo al ori- 
gen sin trazar nada. 


Inicialización 

total 

A 

Mueve el bolígrafo hasta 
la posición extrema iz- 
quierda, establece esta 
posición como origen, y 
pone en la impresora en 
el modo de texto. 



NOMBRE 

MANDATO 

FUNCIONES 

EJEMPLO 

Nueva línea 

F 

Mueve el bolígrafo hasta 
el comienzo de la línea 
siguiente. 


Cambio de 
color 

Cn 

(n = 0-3) 

Establece el color 

0: negro, 1:azul 2 -.verde 

3: rojo 

CO 

Establecim. 
de escala 

Sn 

(n = 0-15) 

Establece el tamaño de los 
caracteres impresos 

S5 

Dirección de 
impresión 

Qn 

(n = 0-3) 

Establece la dirección 
de los caracteres t 

3 - -1 

impresos 1 

Q3 

Impresión 

Pchrs. 

Imprime caracteres 

PABC 

Tipo de línea 

Ln 

(n — 0-15) 

Selecciona el trazado de 
línea continua o disconti- 
nua. 

n = 0,15 línea continua 
n= 1-14 linea discon- 
tinua (Cuanto mayor sea 
el número especificado, 
mayor será la disconti- 
nuidad de la línea). 

LO 

LIO 

Trazado 

Dx1,y1,x2,y2... 

(-999<x,y<999) 

Traza una línea desde la 
posición actual del bolí- 
grafo hasta (x1,y1), des- 
pués desde (x1,y1) hasta 
(x2,y2j... 

DO, 0,0, 5, 
5,5,5,10 

Trazado 

relativo 

JAxI.Ayl, 

Ax2,Ay2,... 

(-999<Ax,Ay 

<999) 

Traza una línea desde la 
posición actual del bolí- 
grafo hasta A x 1 en direc- 
ción horizontal y Ay 1 en 
dirección vertical, des- 
pués tal punto hasta Ax2 
en dirección horizontal y 

A y 2 en dirección vertical, 
etc. 

JO, 5, 5,0 
0,5, 5,0 
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NOMBRE 

MANDATO 

FUNCIONES 

EJEMPLO 

Movimiento 

Mx,y 

(-999<x,y<999) 

Mueve el bolígrafo hasta 

(x,y). 

MIO, 20 

Movimiento 

relativo 

RAx.Ay 
(-999< Ax,Ay 
999) 

Mueve el bolígrafo Ax en 
dirección horizontal y Ay 
en dirección vertical. 

R15,I5 


B.- EJEMPLOS 

A continuación se incluyen algunos ejemplos y comentarios. 

Para cada ejemplo se detalla el programa utilizado y el resultado obte- 
nido con su ejecución. 

Tanto el listado del programa como el dibujo que le sigue se ha obte- 
nido con la PRN-C41. 

Cabe destacar que para facilitar la impresión de ilustraciones o carac- 
teres especiales, existen en el mercado cartuchos con software apropiado 
para confeccionar tarjetas de navidad, de bautizo, rótulos, etc. 


COMO TRAZAR UNA CURVA SENOIDAL EN EL 
IMPRESOR-TRAZADOR 


10 LPRINT :LPRINT CHR$(& H1 B) + " 
20 LPRINT "SI" - 
30 LPRINT "C2" - 
40 LPRINT "P**‘ SIN CURVE :**" 

5,0 LPRINT "F" — 

60 LPRINT "C0" - 

70 LPRINT "R1 0,0" 

80 LPRINT "J0,-300" 

90 LPRINT "R0, 150" 

100 LPRINT T- 
1 10 LPRINT "J450,0" — 

1 20 LPRINT "H" - 
130 LPRINT "C3" 

140 FOR J = 0 TO 360 STEP 90 , 

150 LPRINT "M";J-1 5;", ";-20 ( 

160 LPRINT "P";J í 

170NEXT ) 

180 LPRINT "H" 

1 90 LPRINT "C1 " 

200 FOR X = 0TO 360 STEP 10 j 
2101 = X‘3. 14/180 
220 Y= SIN(I)* 1 00 \ 

230 LPRINT "D";X;",";Y i 

240NEXTX I 

250 LPRINT "H" 

260 LPRINT "A" 

270 END 


Envío de un código de retorno del carro y esta- 
blecimiento de la impresora en el modo de grá- 
ficos. 

Establecimiento del tamaño de los caracteres a "1 " 

Selección del bolígrafo verde 

Impresión de SIN CURVE 

Movimiento del bolígrafo hasta el comienzo de la 
linea siguiente. 

Selección del bolígrafo negro 

Movimiento del bolígrafo 10 pasos en dirección 
horizontal. 

Trazado de una linea vertical de -300 pasos a partir 
de la posición del bolígrafo. 

Movimiento del bolígrafo 150 pasos en dirección 
vertical. 

Reposición allí del origen. 

Trazado de una linea horizontal de 450 pasos a 
partir del origen. 

Movimiento del bolígrafo hasta el origen. 

Selección del bolígrafo rojo 


Marcación de la graduación sobre el eje » 


Movimiento del bolígrafo hasta el origen 
Selección del bolígrafo azul 


Trazado de una curva senoidal 


Movimiento del bolígrafo hasta el origen 


Establecimiento de la impresora en el modo de texto 
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RESULTADO DE LA EJECUCION 


SIN CURVE*** 




(Impresión realizada por sistema convencional de imprenta gráfica, 
sin colores). 


•2.- VARIACION AL EJEMPLO ANTERIOR 

Basado en el ejemplo anterior, se mantiene el trazado de la curva se- 
noidal, añadiéndose a su vez una cosenoidal. 

Para ello, y comparando el programa anterior con el de este ejemplo, 
observamos que se han llevado a término las siguientes modificaciones: 

- Se ha anulado la sentencia 270 

-Se han añadido las sentencias 200, 210, 240, 270, 290, 300 
y 310. 

- Se ha modificado la sentencia 40. 

El listado del programa y el dibujo a continuación, han sido dibujados 
por el impresor-trazador. 

- LISTADO DEL PROGRAMA UTILIZADO 

10 LPRINT :LPRINT CHR$Ca í HlBl + "#" 

20 LPRINT "SI" 

30 LPRINT "C2" 

40 LPRINT "PXXX curua senoidal y co-senoidal X**" 
50 LPRINT "F" 

60 LPRINT "C0" 

70 LPRINT " R 1 0 , 0 11 
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80 LPRINT "J0.-300" 

90 LPRINT " R0 , 150" 

100 LPRINT "I" 

110 LPRINT "J450.0" 

120 LPRINT "H" 

130 LPRINT "C3" 

140 FOR J=0 TO 360 STEP 90 

150 LPRINT "ir : J-15 : " , " : -20 

160 LPRINT "P" ; J 

170 NEXT 

180 LPRINT "H" 

190 LPRINT "Cl" 

200 FOR A=1 TO 2 
210 LPRINT "H" 

220 FOR X=0 TO 360 STEP 10 

230 I=X*3. 14/180 

240 ON 0 GOSUB 280,300 

250 LPRINT "D" ;X;\ " :Y 

260 NEXT X 

270 NEXT A 

280 Y=SINCn*100 
290 RETURN 
300 Y=C0SC 13*100 
310 RETURN 
360 LPRINT "H" 

370 END 

RESUL TADO DELA EJECUCION 

XXX curoa senoidal y co senoidal *** 
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3.- EJEMPLO DE LINEAS ENVOLVENTES 


- Listado de! programa utilizado. 


10 LPRINT CHR$C&H1B‘J + "#" 

20 LPRINT "N320, -448" 

30 LPRINT "I" 

40 LPRINT "C3" 

50 FOR N=1 TO 16 
60 XO=NX20 
70 YO=0 

80 lprint "n" ;xo;\ " :yo 

90 X=320-NX20 
100 Y=-NX40 

110 LPRINT "J" ;X ; " , " ;Y 
120 NEXT N 
130 FOR N=1 TO 16 
140 XO=320 
150 YO=-NX40 

160 LPRINT "IT ;XO : " , " ;YO 

170 LPRINT "J" ;-NX20;", " ¡-640+NX40 

180 NEXT N 

190 FOR N=1 TO 16 

200 XO=320-NX20 

210 YO=-640 

220 LPRINT "n" ;XO ; " , " : YO 

230 LPRINT "J" ;-320^NX20:", " ¡NX40 

240 NEXT N 

250 FOR N=1 TO 16 

260 XO=0 

270 YO=-640+NX40 

280 LPRINT "N" íXO:", " ¡YO 

290 LPRINT "J" ;N*20;", " ¡640-NX40 

300 NEXT N 

310 LPRINT "N25, -700" 

320 LPRINT "S3" 

330 LPRINT "C2" 

340 LPRINT "PEn^olventes" 


RESUL TADO DELA EJECUCION 
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